| line |
true |
false |
branch |
|
40
|
2 |
1 |
if ($self->has_ua)
|
|
43
|
1 |
2 |
if ($self->trace)
|
|
62
|
1 |
5 |
if $self->age =~ /\A\d+([.]\d+)?\z/msx
|
|
63
|
4 |
1 |
if (my($time, $multiplier) = $self->age =~ /\A(\d+)([[:alpha:]]+)\z/msx)
|
|
64
|
2 |
2 |
unless (exists $$table{$multiplier})
|
|
92
|
0 |
0 |
if (not $self->developer or $self->authorized)
|
|
96
|
0 |
0 |
unless ($self->developer)
|
|
99
|
0 |
0 |
if ($self->authorized)
|
|
122
|
0 |
0 |
if (not $self->_sort) { }
|
|
133
|
1 |
1 |
unless $$module{'indexed'} and $$module{'authorized'} and $$module{'version'}
|
|
139
|
0 |
1 |
unless $file
|
|
142
|
0 |
1 |
unless $mm
|
|
148
|
0 |
0 |
unless (defined $v or defined $mm_version)
|
|
151
|
0 |
1 |
if (defined $v and not defined $mm_version) { }
|
|
|
0 |
1 |
elsif (not defined $v and defined $mm_version) { }
|
|
|
0 |
1 |
elsif ($mm_version >= $v) { }
|
|
165
|
1 |
0 |
$v ? :
|
|
|
1 |
0 |
$mm_version ? :
|
|
176
|
0 |
0 |
unless (exists $$self{'stash_cache'})
|
|
179
|
0 |
0 |
unless (exists $$self{'upgrade_cache'})
|
|
187
|
0 |
0 |
unless $scroll_result
|
|
195
|
0 |
0 |
if ($self->all_versions)
|
|
200
|
0 |
0 |
if exists $$stash_cache{$cache_key}
|
|
201
|
0 |
0 |
if not $self->developer and 'developer' eq $$data_hash{'maturity'}
|
|
203
|
0 |
0 |
if $$data_hash{'path'} =~ m[\Ax?t/]msx
|
|
204
|
0 |
0 |
unless $$data_hash{'path'} =~ /[.]pm\z/msx
|
|
205
|
0 |
0 |
unless $$data_hash{'module'}
|
|
206
|
0 |
0 |
unless @{$$data_hash{'module'};}
|
|
209
|
0 |
0 |
unless $fresh_data
|
|
210
|
0 |
0 |
if $$upgrade_cache{$upgrade_key}
|
|
240
|
1 |
1 |
if ($value)
|
|
248
|
1 |
1 |
if ($value) { }
|
|
257
|
0 |
6 |
unless (&Getopt::Long::GetOptions('age|a=s', sub {
my(undef, $value) = @_;
$$defaults{'age'} = $value;
}
, 'develop|devel|dev!', sub {
my(undef, $value) = @_;
if ($value) {
$$defaults{'developer'} = 1;
return;
} ;
$$defaults{'developer'} = undef;
}
, 'authorized|authed!', sub {
my(undef, $value) = @_;
if ($value) {
$$defaults{'authorized'} = 1;
}
else {
$$defaults{'authorized'} = undef;
} ;
}
, 'help|h|?', \$help, 'man', \$man))
|
|
258
|
0 |
6 |
if ($help or $man)
|
|
259
|
0 |
0 |
if ($help)
|