| 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) |
|
169
|
0 |
255 |
if ($CPAN::Reporter::History::Config{'taint_disabled'}) |
|
170
|
0 |
0 |
if $CPAN::Reporter::History::Config{'taint_disabled'} eq "silent" |
|
183
|
0 |
416 |
if $CPAN::Reporter::History::Config{'perl_patchlevel'} |
|
219
|
22 |
132 |
unless my $history = _open_history_file("<") |
|
223
|
97 |
275 |
if ($line eq $log_line) |
|
239
|
130 |
844 |
if $search->{$k} eq "" |
|
240
|
341 |
503 |
unless $fields->{$k} eq $search->{$k} |
|
255
|
22 |
231 |
if $mode eq "<" and not $file_exists |
|
258
|
0 |
231 |
unless my $history = "IO::File"->new($history_filename, $mode) |
|
263
|
20 |
211 |
if (substr($mode, 0, 1) eq ">" and not $file_exists) |
|
279
|
0 |
423 |
if ($min < 6) { } |
|
295
|
0 |
61 |
unless my $history = _open_history_file(">>") |
|
328
|
0 |
428 |
if scalar keys %fields == 0 |