| line |
true |
false |
branch |
|
183
|
1 |
0 |
if (-d $script_dir) |
|
184
|
0 |
1 |
unless ($script_dir =~ /^(.+)$/s) |
|
230
|
1 |
0 |
if (exists $opts{'autodie'}) |
|
324
|
0 |
23 |
unless $test_name |
|
340
|
0 |
23 |
if ($auto_die) |
|
341
|
0 |
0 |
unless ($ok) |
|
350
|
22 |
1 |
if ($ok) { } |
|
419
|
0 |
12 |
unless (@_ >= 3) |
|
426
|
0 |
12 |
if ($opts{'collapse'}) { } |
|
|
0 |
12 |
elsif ($opts{'nospace'}) { } |
|
444
|
0 |
12 |
if ($opts{'case_insensitive'}) |
|
445
|
0 |
0 |
if (defined $should) |
|
447
|
0 |
0 |
if (defined $got) |
|
455
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
460
|
0 |
0 |
unless ($opts{'should'}) |
|
461
|
0 |
0 |
$opts{'should'} ? : |
|
569
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
571
|
0 |
0 |
defined $_ ? : |
|
572
|
0 |
0 |
defined $_ ? : |
|
578
|
0 |
0 |
unless ($opts{'should'}) |
|
634
|
0 |
1 |
unless (defined $have_sent and defined $should_sent) |
|
635
|
0 |
0 |
if ($opts{'auto_die'}) |
|
651
|
3 |
0 |
if (exists $have{$key}) { } |
|
652
|
0 |
3 |
if (neqq($have{$key}, $should{$key})) |
|
671
|
0 |
1 |
@wrong ? : |
|
674
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
721
|
0 |
3 |
if (ref $should) |
|
725
|
1 |
2 |
if (defined $should and length $should) { } |
|
731
|
0 |
2 |
ref $have ? : |
|
772
|
2 |
2 |
$is ? : |
|
773
|
2 |
2 |
$should ? : |
|
813
|
0 |
2 |
unless (defined $should) |
|
855
|
1 |
0 |
if (defined $got) { } |
|
863
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
869
|
0 |
0 |
unless ($opts{'should'}) |
|
926
|
0 |
1 |
if (not should_flop($ok, %opts) and $auto_die) |
|
929
|
0 |
0 |
$opts{'should'} ? : |
|
982
|
5 |
1 |
if (defined $is) { } |
|
988
|
4 |
2 |
if (defined $should) { } |
|
1048
|
3 |
0 |
if (UNIVERSAL::isa($id_should, 'CODE')) |
|
1081
|
0 |
0 |
unless (defined $val) |
|
1100
|
15 |
0 |
if (defined $str1 and defined $str2) |
|
1104
|
0 |
0 |
unless (defined $str1 or defined $str2) |
|
1112
|
3 |
0 |
eqq(@_) ? : |
|
1149
|
1 |
40 |
unless ($opts{'should'}) |
|
1153
|
39 |
2 |
$ok ? : |
|
1168
|
0 |
3 |
unless (UNIVERSAL::isa($alpha_sent, 'ARRAY') and UNIVERSAL::isa($beta_sent, 'ARRAY')) |
|
1175
|
0 |
3 |
if (@$alpha_sent != @$beta_sent) |
|
1183
|
1 |
2 |
if ($opts{'case_insensitive'}) |
|
1184
|
3 |
0 |
if (defined $_) |
|
1185
|
3 |
0 |
if (defined $_) |
|
1189
|
1 |
2 |
if ($opts{'order_insensitive'}) |
|
1197
|
0 |
9 |
if (defined $alpha[$i] and not defined $beta[$i] or not defined $alpha[$i] and defined $beta[$i]) { } |
|
|
0 |
9 |
elsif (not defined $alpha[$i]) { } |
|
1210
|
0 |
9 |
unless ($alpha[$i] eq $beta[$i]) |
|
1229
|
0 |
5 |
if (not defined $a || defined $b) { } |
|
|
0 |
5 |
elsif (not defined $a) { } |
|
|
0 |
5 |
elsif (not defined $b) { } |