| line |
true |
false |
branch |
|
186
|
1 |
0 |
if (-d $script_dir) |
|
187
|
0 |
1 |
unless ($script_dir =~ /^(.+)$/s) |
|
193
|
0 |
1 |
unless chdir $script_dir |
|
233
|
1 |
0 |
if (exists $opts{'autodie'}) |
|
340
|
0 |
23 |
unless $test_name |
|
356
|
0 |
23 |
if ($auto_die) |
|
357
|
0 |
0 |
unless ($ok) |
|
366
|
23 |
0 |
if ($ok) { } |
|
435
|
0 |
12 |
unless (@_ >= 3) |
|
442
|
0 |
12 |
if ($opts{'collapse'}) { } |
|
|
0 |
12 |
elsif ($opts{'nospace'}) { } |
|
460
|
0 |
12 |
if ($opts{'case_insensitive'}) |
|
461
|
0 |
0 |
if (defined $should) |
|
463
|
0 |
0 |
if (defined $got) |
|
471
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
476
|
0 |
0 |
unless ($opts{'should'}) |
|
477
|
0 |
0 |
$opts{'should'} ? : |
|
585
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
587
|
0 |
0 |
defined $_ ? : |
|
588
|
0 |
0 |
defined $_ ? : |
|
594
|
0 |
0 |
unless ($opts{'should'}) |
|
650
|
0 |
1 |
unless (defined $have_sent and defined $should_sent) |
|
651
|
0 |
0 |
if ($opts{'auto_die'}) |
|
667
|
3 |
0 |
if (exists $have{$key}) { } |
|
668
|
0 |
3 |
if (neqq($have{$key}, $should{$key})) |
|
687
|
0 |
1 |
@wrong ? : |
|
690
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
737
|
0 |
3 |
if (ref $should) |
|
741
|
1 |
2 |
if (defined $should and length $should) { } |
|
747
|
0 |
2 |
ref $have ? : |
|
788
|
2 |
2 |
$is ? : |
|
789
|
2 |
2 |
$should ? : |
|
829
|
0 |
2 |
unless (defined $should) |
|
871
|
1 |
0 |
if (defined $got) { } |
|
879
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
885
|
0 |
0 |
unless ($opts{'should'}) |
|
942
|
0 |
0 |
if (not should_flop($ok, %opts) and $auto_die) |
|
945
|
0 |
0 |
$opts{'should'} ? : |
|
998
|
5 |
1 |
if (defined $is) { } |
|
1004
|
4 |
2 |
if (defined $should) { } |
|
1064
|
3 |
0 |
if (UNIVERSAL::isa($id_should, 'CODE')) |
|
1097
|
0 |
0 |
unless (defined $val) |
|
1116
|
15 |
0 |
if (defined $str1 and defined $str2) |
|
1120
|
0 |
0 |
unless (defined $str1 or defined $str2) |
|
1128
|
3 |
0 |
eqq(@_) ? : |
|
1165
|
1 |
40 |
unless ($opts{'should'}) |
|
1169
|
41 |
0 |
$ok ? : |
|
1184
|
0 |
3 |
unless (UNIVERSAL::isa($alpha_sent, 'ARRAY') and UNIVERSAL::isa($beta_sent, 'ARRAY')) |
|
1191
|
0 |
3 |
if (@$alpha_sent != @$beta_sent) |
|
1199
|
1 |
2 |
if ($opts{'case_insensitive'}) |
|
1200
|
3 |
0 |
if (defined $_) |
|
1201
|
3 |
0 |
if (defined $_) |
|
1205
|
1 |
2 |
if ($opts{'order_insensitive'}) |
|
1213
|
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]) { } |
|
1226
|
0 |
9 |
unless ($alpha[$i] eq $beta[$i]) |
|
1245
|
0 |
5 |
if (not defined $a || defined $b) { } |
|
|
0 |
5 |
elsif (not defined $a) { } |
|
|
0 |
5 |
elsif (not defined $b) { } |
|
1272
|
0 |
0 |
if (defined $rv) |
|
1281
|
0 |
0 |
if (defined $rv) |
|
1299
|
0 |
0 |
if (defined $val) |
|
1316
|
0 |
0 |
if (defined $val) |