Branch Coverage
support/Test/Harness/Point.pm
Criterion
Covered
Total
%
branch
10
16
62.5
line
true
false
branch
42
0
87284
unless
my
$line
=
shift
@_
45
36950
50334
unless
my
(
$not
,
$number
,
$extra
)
=
$line
=~
/^(not )?ok\b(?:\s+(\d+))?\s*(.*)/
51
2674
47660
if
(
$extra
)
55
556
2118
if
(
$directive
)
79
50334
0
$ok
?
:
84
100668
0
$self
->
ok
||
$self
->
is_todo
||
$self
->
is_skip
?
:
108
0
556
unless
defined
$reason
137
0
0
if
wantarray