Branch Coverage

blib/lib/Sub/Data/Recursive.pm
Criterion Covered Total %
branch 18 28 64.2


line true false branch
20 14 29 if (my $ref = ref $arg) { }
24 0 14 if (defined($proto = $seen->{$refaddr})) { }
3 11 elsif ($ref eq 'ARRAY') { }
11 0 elsif ($ref eq 'HASH') { }
0 0 elsif ($ref eq 'REF' or $ref eq 'SCALAR') { }
46 29 0 defined $arg ? :
50 14 6 wantarray ? :
66 2 4 if (my $ref = ref $arg) { }
70 0 2 if (defined($proto = $seen->{$refaddr})) { }
1 1 elsif ($ref eq 'ARRAY') { }
1 0 elsif ($ref eq 'HASH') { }
0 0 elsif ($ref eq 'REF' or $ref eq 'SCALAR') { }
92 4 0 defined $arg ? :
96 2 2 wantarray ? :