view release on metacpan or  search on metacpan

script/cpan-outdated-coro  view on Meta::CPAN

    info => 1,
    rep => 1,
);

for (keys %num) {
    $ch{$_} = [];
}
$cv=AE::cv;
my $cv_main=AE::cv;

#### spawn threads
for my $ref (
#       worker      name
    [ \&_parse_gz, 'gz' ],
    [ \&_scan_inc, 'scan' ],
    [ \&_get_info, 'info' ],
    [ \&_report,   'rep' ],
)
{
    my ( $sub, $name ) = @{$ref};
    my $num = $num{$name};