view release on metacpan or  search on metacpan

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

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
    [ \&_scan_inc, 'scan' ],
    [ \&_get_info, 'info' ],
    [ \&_report,   'rep' ],
)
{
    my ( $sub, $name ) = @{$ref};
    my $num = $num{$name};
    ### spawn: $name => $num
    for my $x (1..$num) {
        $cv->begin;
         my $w;$w=AE::timer 0,0.0001, sub{
            ## enter: $name
            if ($sub->()) {
                undef $w;
                $cv->end;
            }
        };
    }
}
 
### schedule