| line |
true |
false |
branch |
|
147
|
3 |
40 |
if ($from_notest) { } |
|
155
|
0 |
43 |
if (@_ != @sans_preload) |
|
209
|
6 |
8 |
if (@_ == 1) { } |
|
225
|
118 |
103 |
unless ($Test->ok($ok, $name)) |
|
286
|
0 |
118 |
unless $stack |
|
295
|
118 |
0 |
if (&Scalar::Util::blessed($exp)) |
|
297
|
33 |
85 |
if ($exp->can('diagnostics')) { } |
|
304
|
27 |
58 |
if ($exp->can("diag_message")) |
|
311
|
85 |
33 |
unless (defined $diag) |
|
332
|
246 |
14 |
if (defined $val) { } |
|
334
|
4 |
11 |
&Scalar::Util::refaddr($val) eq $DNE_ADDR ? : |
|
|
15 |
231 |
ref $val ? : |
|
353
|
640 |
699 |
unless (ref $d1 or ref $d2) |
|
356
|
633 |
7 |
if (defined $d1) { } |
|
358
|
274 |
359 |
if defined $d2 and $d1 eq $d2 |
|
362
|
4 |
3 |
unless defined $d2 |
|
366
|
1 |
1904 |
if (not $Expects and &Scalar::Util::blessed($d1) and $d1->isa("Test::Deep::Cmp")) |
|
372
|
1191 |
1103 |
if (ref $d1 and ref $d2) |
|
377
|
18 |
84 |
if ($Expects and &Scalar::Util::blessed($d1) and $d1->isa("Test::Deep::Cmp")) |
|
380
|
3 |
15 |
unless blessed(&Scalar::Util::blessed($d2))->descend($d1) |
|
381
|
14 |
1 |
if ($d1->can("compare")) |
|
390
|
3 |
1171 |
if ($s1 eq $s2) |
|
394
|
34 |
1137 |
if ($CompareCache->cmp($d1, $d2)) { } |
|
412
|
5 |
2235 |
if (ref $d1 and &Scalar::Util::refaddr($d1) == $DNE_ADDR) |
|
419
|
1288 |
945 |
if ($d2->descend($d1)) { } |
|
438
|
1613 |
643 |
if defined $class and $data->isa("Test::Deep::Cmp") |
|
440
|
0 |
643 |
if (defined $class and $data->can("as_test_deep_cmp")) |
|
442
|
0 |
0 |
if $cmp->isa("Test::Deep::Cmp") |
|
450
|
413 |
230 |
if ($reftype eq '') { } |
|
452
|
5 |
408 |
$LeafWrapper ? : |
|
460
|
40 |
190 |
if $WrapCache{$addr} |
|
462
|
139 |
51 |
if ($reftype eq 'ARRAY') { } |
|
|
28 |
23 |
elsif ($reftype eq 'HASH') { } |
|
|
21 |
2 |
elsif ($reftype eq 'SCALAR' or $reftype eq 'REF') { } |
|
|
2 |
0 |
elsif ($reftype eq 'Regexp' or $reftype eq 'REGEXP') { } |
|
480
|
0 |
0 |
$LeafWrapper ? : |
|
495
|
413 |
233 |
unless defined $reftype |
|
497
|
233 |
0 |
unless $Test::Deep::RegexpVersion::OldStyle |
|
500
|
0 |
0 |
unless defined $blessed |
|
502
|
0 |
0 |
if ($blessed and $blessed eq "Regexp" and $reftype eq "SCALAR") |
|
604
|
1 |
4 |
unless $ref eq "ARRAY" |
|
639
|
34 |
0 |
if (@_) |