Branch Coverage

support/Test/Harness/Point.pm
Criterion Covered Total %
branch 10 16 62.5


line true false branch
42 0 64823 unless my $line = shift()
45 16280 48543 unless my($not, $number, $extra) = $line =~ /^(not )?ok\b(?:\s+(\d+))?\s*(.*)/
51 20790 27753 if ($extra)
55 560 20230 if ($directive)
81 48543 0 $ok ? :
86 97086 0 $self->ok || $self->is_todo || $self->is_skip ? :
110 0 560 unless defined $reason
139 0 0 if wantarray