Branch Coverage

blib/lib/perl5i/2/Meta/Instance.pm
Criterion Covered Total %
branch 27 32 84.3


line true false branch
23 30 10 ref ${${$_[0];};} ? :
47 9 19 if (not ref ${${$_[0];};}) { }
3 16 elsif (ref ${${$_[0];};} eq 'SCALAR') { }
7 9 elsif ($code = $_[0]->$has_string_overload) { }
69 3 6 if (not ref ${${$_[0];};}) { }
2 4 elsif ($_[0]->$has_string_overload) { }
74 1 1 unless $_[0]->is_tainted
89 3 6 if (not ref ${${$_[0];};}) { }
1 5 elsif ($_[0]->$has_string_overload and $_[0]->is_tainted) { }
109 1 32 unless $args{'algorithm'} ~~ $algorithms
116 1 31 unless $args{'format'} ~~ $format
122 25 6 defined $$prefix{$args{'format'}} ? :
174 0 8 unless $dumper
195 0 0 $b_obj->isa('B::AV') ? :
1 0 $b_obj->isa('B::HV') ? :
198 4 0 unless defined &UNIVERSAL::TO_JSON