| line |
true |
false |
branch |
|
182
|
1 |
0 |
if (-d $script_dir) |
|
183
|
0 |
1 |
unless ($script_dir =~ /^(.+)$/s) |
|
229
|
1 |
0 |
if (exists $opts{'autodie'}) |
|
323
|
0 |
23 |
unless $test_name |
|
339
|
0 |
23 |
if ($auto_die) |
|
340
|
0 |
0 |
unless ($ok) |
|
349
|
22 |
1 |
if ($ok) { } |
|
418
|
0 |
12 |
unless (@_ >= 3) |
|
425
|
0 |
12 |
if ($opts{'collapse'}) { } |
|
|
0 |
12 |
elsif ($opts{'nospace'}) { } |
|
443
|
0 |
12 |
if ($opts{'case_insensitive'}) |
|
444
|
0 |
0 |
if (defined $should) |
|
446
|
0 |
0 |
if (defined $got) |
|
454
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
459
|
0 |
0 |
unless ($opts{'should'}) |
|
460
|
0 |
0 |
$opts{'should'} ? : |
|
568
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
570
|
0 |
0 |
defined $_ ? : |
|
571
|
0 |
0 |
defined $_ ? : |
|
577
|
0 |
0 |
unless ($opts{'should'}) |
|
633
|
0 |
1 |
unless (defined $have_sent and defined $should_sent) |
|
634
|
0 |
0 |
if ($opts{'auto_die'}) |
|
650
|
3 |
0 |
if (exists $have{$key}) { } |
|
651
|
0 |
3 |
if (neqq($have{$key}, $should{$key})) |
|
670
|
0 |
1 |
@wrong ? : |
|
673
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
720
|
0 |
3 |
if (ref $should) |
|
724
|
1 |
2 |
if (defined $should and length $should) { } |
|
730
|
0 |
2 |
ref $have ? : |
|
771
|
2 |
2 |
$is ? : |
|
772
|
2 |
2 |
$should ? : |
|
812
|
0 |
2 |
unless (defined $should) |
|
854
|
1 |
0 |
if (defined $got) { } |
|
862
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
868
|
0 |
0 |
unless ($opts{'should'}) |
|
925
|
0 |
1 |
if (not should_flop($ok, %opts) and $auto_die) |
|
928
|
0 |
0 |
$opts{'should'} ? : |
|
981
|
5 |
1 |
if (defined $is) { } |
|
987
|
4 |
2 |
if (defined $should) { } |
|
1047
|
3 |
0 |
if (UNIVERSAL::isa($id_should, 'CODE')) |
|
1080
|
0 |
0 |
unless (defined $val) |
|
1099
|
15 |
0 |
if (defined $str1 and defined $str2) |
|
1103
|
0 |
0 |
unless (defined $str1 or defined $str2) |
|
1111
|
3 |
0 |
eqq(@_) ? : |
|
1148
|
1 |
40 |
unless ($opts{'should'}) |
|
1152
|
39 |
2 |
$ok ? : |
|
1167
|
0 |
3 |
unless (UNIVERSAL::isa($alpha_sent, 'ARRAY') and UNIVERSAL::isa($beta_sent, 'ARRAY')) |
|
1174
|
0 |
3 |
if (@$alpha_sent != @$beta_sent) |
|
1182
|
1 |
2 |
if ($opts{'case_insensitive'}) |
|
1183
|
3 |
0 |
if (defined $_) |
|
1184
|
3 |
0 |
if (defined $_) |
|
1188
|
1 |
2 |
if ($opts{'order_insensitive'}) |
|
1196
|
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]) { } |
|
1209
|
0 |
9 |
unless ($alpha[$i] eq $beta[$i]) |
|
1228
|
0 |
5 |
if (not defined $a || defined $b) { } |
|
|
0 |
5 |
elsif (not defined $a) { } |
|
|
0 |
5 |
elsif (not defined $b) { } |
|
1255
|
0 |
0 |
if (defined $val) |