| line |
true |
false |
branch |
|
36
|
0 |
36 |
if ($@) |
|
102
|
1 |
39 |
if @_ % 2 |
|
109
|
1 |
37 |
if @bad_params |
|
114
|
15 |
22 |
if defined $args->{'grade'} |
|
117
|
33 |
4 |
unless defined $args->{'perl'} |
|
118
|
33 |
4 |
unless defined $args->{'archname'} |
|
119
|
33 |
4 |
unless defined $args->{'osvers'} |
|
122
|
0 |
37 |
unless my $history = _open_history_file('<') |
|
126
|
0 |
428 |
unless my $fields = _split_history($line) |
|
127
|
87 |
341 |
if _match($fields, $args) |
|
160
|
0 |
416 |
if $CPAN::Reporter::History::Config{'perl_patchlevel'} |
|
196
|
22 |
132 |
unless my $history = _open_history_file('<') |
|
200
|
97 |
275 |
if ($line eq $log_line) |
|
216
|
171 |
866 |
if $search->{$k} eq '' |
|
217
|
341 |
525 |
unless $fields->{$k} eq $search->{$k} |
|
232
|
22 |
231 |
if $mode eq '<' and not $file_exists |
|
235
|
0 |
231 |
unless my $history = 'IO::File'->new($history_filename, $mode) |
|
240
|
20 |
211 |
if (substr($mode, 0, 1) eq '>' and not $file_exists) |
|
256
|
0 |
423 |
if ($min < 6) { } |
|
272
|
0 |
61 |
unless my $history = _open_history_file('>>') |
|
305
|
0 |
428 |
if scalar keys %fields == 0 |