| line |
true |
false |
branch |
|
26
|
1 |
0 |
if $epoch and eval {
do {
$epoch->isa('CPAN::Recent::Uploads')
}
} |
|
29
|
0 |
1 |
unless $epoch and $epoch =~ /^\d+$/ and $epoch <= time and $epoch >= time - $periods{'1Y'} |
|
37
|
0 |
1 |
unless @yaml |
|
39
|
0 |
1 |
unless $record |
|
41
|
11 |
6 |
unless $recent->{'path'} =~ /\.(tar\.gz|tgz|tar\.bz2|zip)$/ |
|
42
|
6 |
0 |
if ($recent->{'type'} eq 'new') { } |
|
44
|
0 |
6 |
if $recent->{'epoch'} < $epoch |
|
47
|
1 |
5 |
if $parts[3] =~ /Perl6/i |
|
53
|
0 |
0 |
if exists $data{$foo} |
|
56
|
1 |
0 |
if $foo eq $period |
|
58
|
0 |
1 |
unless wantarray |
|
65
|
1 |
0 |
if time - $periods{$period} < $epoch |