| line |
true |
false |
branch |
|
38
|
2 |
1 |
if ($self->has_ua)
|
|
41
|
1 |
2 |
if ($self->trace)
|
|
60
|
1 |
5 |
if $self->age =~ /\A\d+([.]\d+)?\z/msx
|
|
61
|
4 |
1 |
if (my($time, $multiplier) = $self->age =~ /\A(\d+)([[:alpha:]]+)\z/msx)
|
|
62
|
2 |
2 |
unless (exists $table->{$multiplier})
|
|
96
|
0 |
0 |
if (not $self->developer or $self->authorized)
|
|
100
|
0 |
0 |
unless ($self->developer)
|
|
103
|
0 |
0 |
if ($self->authorized)
|
|
118
|
0 |
0 |
$self->_es_version(5) ? :
|
|
126
|
0 |
0 |
if (not $self->_sort) { }
|
|
132
|
0 |
0 |
$self->_es_version(5) ? :
|
|
141
|
1 |
1 |
unless $module->{'indexed'} and $module->{'authorized'} and $module->{'version'}
|
|
147
|
0 |
1 |
unless $file
|
|
150
|
0 |
1 |
unless $mm
|
|
156
|
0 |
0 |
unless (defined $v or defined $mm_version)
|
|
159
|
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) { }
|
|
176
|
1 |
0 |
$v ? :
|
|
|
1 |
0 |
$mm_version ? :
|
|
184
|
0 |
0 |
unless (exists $self->{'stash_cache'})
|
|
187
|
0 |
0 |
unless (exists $self->{'upgrade_cache'})
|
|
195
|
0 |
0 |
unless $scroll_result
|
|
203
|
0 |
0 |
if ($self->all_versions)
|
|
208
|
0 |
0 |
if exists $stash_cache->{$cache_key}
|
|
209
|
0 |
0 |
if not $self->developer and 'developer' eq $data_hash->{'maturity'}
|
|
211
|
0 |
0 |
if $data_hash->{'path'} =~ m[\Ax?t/]msx
|
|
212
|
0 |
0 |
unless $data_hash->{'path'} =~ /[.]pm\z/msx
|
|
213
|
0 |
0 |
unless $data_hash->{'module'}
|
|
214
|
0 |
0 |
unless @{$data_hash->{'module'};}
|
|
217
|
0 |
0 |
unless $fresh_data
|
|
218
|
0 |
0 |
if $upgrade_cache->{$upgrade_key}
|
|
248
|
1 |
1 |
if ($value)
|
|
256
|
1 |
1 |
if ($value) { }
|
|
265
|
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))
|
|
266
|
0 |
6 |
if ($help or $man)
|
|
267
|
0 |
0 |
if ($help)
|