—

              
#!/usr/bin/perl
use warnings;
use strict;
use CPANPLUS::Backend;
use Cwd;
BEGIN {
    eval { require CPANPLUS::Dist::Arch; }
        or die 'CPANPLUS::Dist::Arch must be installed for this script to work.'
}
my $cb      = CPANPLUS::Backend->new;
my $destdir = getcwd;
MODULE_ARG:
while ( my $module = shift @ARGV ) {
    my $modobj = $cb->module_tree( $module )
        or next MODULE_ARG;
    $modobj->install( target  => 'create',
                      format  => 'CPANPLUS::Dist::Arch',
                      verbose => 1,
                      pkg     => 'src',
                      destdir => $destdir );
}
__END__
HideShow 34 lines of Pod
=head1 NAME
cpan2aur - Generate an AUR source package of a CPAN perl module
=head1 SYNOPSIS
  $ ./cpan2aur Acme::Bleach
  ... spammy output from CPAN & makepkg here ...
  $ ls *.src.tar.gz
  perl-acme-bleach-1.12-1.src.tar.gz
  $
=head1 DESCRIPTION
Example script for using the advanced options of
L<CPANPLUS::Dist::Arch>.  Useful for updating AUR
perl modules you are maintaining.
Ironic how this is much more succinct then just creating a PKGBUILD...
=head1 AUTHOR
Justin Davis, C<< <jrcd83 at gmail.com> >>, juster on
L<http://bbs.archlinux.org>
=head1 COPYRIGHT & LICENSE
Copyright 2009 Justin Davis, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut