CPAN::Packager::Downloader::CPAN - Download cpan module tarball from CPAN with CPAN.pm

CPAN-Packager documentation Contained in the CPAN-Packager distribution.

Index

Code Index:

NAME

Top

CPAN::Packager::Downloader::CPAN - Download cpan module tarball from CPAN with CPAN.pm

SYNOPSIS

Top

  use CPAN::Packager::Downloader::CPAN;
  my $d = CPAN::Packager::Downloader::CPAN->new;
  $d->download('HTTP::Engine');

DESCRIPTION

Top

CPAN::Packager::Downloader fetches a cpan module tarball from CPAN.

AUTHOR

Top

Takatoshi Kitano <kitano.tk@gmail.com>

SEE ALSO

Top

LICENSE

Top

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

CPAN-Packager documentation Contained in the CPAN-Packager distribution. 
package CPAN::Packager::Downloader::CPAN;
use Mouse;
use CPAN;
use Try::Tiny;
use Log::Log4perl qw(:easy);
with 'CPAN::Packager::Downloader::Role';

sub set_cpan_mirrors {
    my ( $self, $cpan_mirrors ) = @_;
    $CPAN::Config->{'urllist'} = $cpan_mirrors;
}

sub download {
    my ( $self, $module ) = @_;
    INFO("Downloading $module ...");

    my $mod = CPAN::Shell->expand( "Module", $module );
    return unless $mod;

    my $dist = $mod->distribution;
    return unless $dist;

    my ( $archive, $where );
    try {
        $dist->get();
        $archive = $dist->{localfile};   # FIXME: old CPAN does't have method?
        $where   = $dist->dir();
    };

    return () unless $archive;

    return $self->analyze_distname_info( $archive, $where );
}

no Mouse;
__PACKAGE__->meta->make_immutable;
1;

__END__