Branch Coverage

blib/lib/CPAN/Reporter/History.pm
Criterion Covered Total %
branch 34 42 80.9


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