view release on metacpan or  search on metacpan

lib/App/Caoliu.pm  view on Meta::CPAN

has parser           => sub { App::Caoliu::Parser->new };
has index            => 'http://t66y.com';
has downloader       => sub { App::Caoliu::Downloader->new };
has target           => '.';
has loop             => sub { Mojo::IOLoop->delay };
has parallel_num     => 20;

my @downloaded_files;

sub new {
    my $self = shift->SUPER::new(@_);

    Carp::croak("category args must be arrayref")
      if ref $self->category ne ref [];
    $self->downloader->ua->http_proxy(
        join( '', 'http://sri:secret@', $self->proxy ) )
      if $self->proxy;
    $ENV{LOGGER} = $self->log;

    return $self;
}