Branch Coverage

File:local/lib/perl5/Test/Deep.pm
Coverage:25.6%

line%coveragebranch
1340TFif (@_ == 1) { }
15050TFunless ($Test->ok($ok, $name))
2110TFunless $stack
2200TFif (&Scalar::Util::blessed($exp))
2220TFif ($exp->can('diagnostics')) { }
2290TFif ($exp->can('diag_message'))
2360TFunless (defined $diag)
2380TFunless defined $got
2390TFunless defined $expected
2400TFunless defined $message
2570TFif (defined $val) { }
2590TF&Scalar::Util::refaddr($val) eq $DNE_ADDR ? :
0TFref $val ? :
278100TFunless (ref $d1 or ref $d2)
28150TFif (defined $d1) { }
28350TFif defined $d2 and $d1 eq $d2
2870TFunless defined $d2
29150TFif (not $Expects and &Scalar::Util::blessed($d1) and $d1->isa('Test::Deep::Cmp'))
297100TFif (ref $d1 and ref $d2)
3020TFif ($Expects and &Scalar::Util::blessed($d1) and $d1->isa('Test::Deep::Cmp'))
3050TFunless blessed(&Scalar::Util::blessed($d2))->descend($d1)
3060TFif ($d1->can('compare'))
31550TFif ($s1 eq $s2)
31950TFif ($CompareCache->cmp($d1, $d2)) { }
33750TFif (ref $d1 and &Scalar::Util::refaddr($d1) == $DNE_ADDR)
34450TFif ($d2->descend($d1)) { }
362100TFif &Scalar::Util::blessed($data) and $data->isa('Test::Deep::Cmp')
36850TFif ($base eq '') { }
37650TFif $WrapCache{$addr}
37850TFif ($base eq 'ARRAY') { }
0TFelsif ($base eq 'HASH') { }
0TFelsif ($base eq 'SCALAR' or $base eq 'REF') { }
0TFelsif ($base eq 'Regexp' or $base eq 'REGEXP') { }
40850TFif (ref $val) { }
41150TFdefined $blessed ? :
41550TFif ($Test::Deep::RegexpVersion::OldStyle)
4160TFif ($blessed eq 'Regexp' and $reftype eq 'SCALAR')
5160TFunless $ref eq 'ARRAY'
5410TFif (@_)