The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
# PODNAME: xgettext
# ABSTRACT: Command xgettext of Alien-gettext

$|=1;

use strict;
use warnings;
use File::ShareDir ':ALL';
use Path::Class;

my $abs = file(dist_dir('Alien-gettext'),'bin','xgettext')->cleanup->absolute;

exec($abs, @ARGV) or print STDERR "couldn't exec xgettext: $!";

__END__

=pod

=head1 NAME

xgettext - Command xgettext of Alien-gettext

=head1 VERSION

version 0.001

=head1 AUTHOR

Torsten Raudssus <torsten@raudss.us>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut