| line |
true |
false |
branch |
|
25
|
0 |
4 |
if ($@) |
|
103
|
0 |
9 |
if ($min < 6) { } |
|
114
|
0 |
2 |
if @_ % 2 |
|
123
|
0 |
2 |
if @bad_params |
|
127
|
1 |
1 |
if defined $args->{'grade'} |
|
130
|
2 |
0 |
unless defined $args->{'perl'} |
|
131
|
2 |
0 |
unless defined $args->{'archname'} |
|
132
|
2 |
0 |
unless defined $args->{'osvers'} |
|
135
|
0 |
2 |
unless my $history = _open_history_file('<') |
|
139
|
0 |
8 |
unless my $fields = _split_history($line) |
|
140
|
4 |
4 |
if _match($fields, $args) |
|
149
|
0 |
26 |
if $search->{$k} eq '' |
|
150
|
4 |
22 |
unless $fields->{$k} eq $search->{$k} |
|
158
|
0 |
9 |
if $CPAN::Testers::Common::Client::History::Config{'perl_patchlevel'} |
|
168
|
1 |
8 |
if $mode eq '<' and not $file_exists |
|
171
|
0 |
8 |
unless my $history = 'IO::File'->new($history_filename, $mode) |
|
176
|
1 |
7 |
if (substr($mode, 0, 1) eq '>' and not $file_exists) |
|
199
|
1 |
2 |
unless my $history = _open_history_file('<') |
|
203
|
1 |
6 |
if ($line eq $log_line) |
|
215
|
0 |
4 |
unless my $history = _open_history_file('>>') |
|
243
|
0 |
8 |
if scalar keys %fields == 0 |