Branch Coverage

blib/lib/Data/Printer.pm
Criterion Covered Total %
branch 45 66 68.1


line true false branch
20 7 2 if (@_ > 0)
21 0 7 @_ == 1 ? :
22 0 7 unless ref $args eq 'HASH'
27 0 7 if exists $args->{'profile'}
35 8 1 $use_prototypes ? :
61 0 13 if ($printer->colored eq 'auto')
66 2 10 if ($ref eq 'ARRAY' or $ref eq 'HASH' or $ref eq 'REF' and ref ${$_[0];} eq 'REF')
70 0 13 if ($printer->caller_message_position eq 'after') { }
89 0 0 if ($printer->colored eq 'auto' and $printer->return_value eq 'dump' and $want_value)
94 4 35 if ($ref eq 'ARRAY' or $ref eq 'HASH' or $ref eq 'REF' and ref ${$_[0];} eq 'REF')
98 0 42 if ($printer->caller_message_position eq 'after') { }
116 1 3 if (not ref $_[0] and @_ == 1)
128 0 0 if ($printer->colored eq 'auto' and $printer->return_value eq 'dump' and $want_value)
132 1 3 defined $item ? :
133 0 0 defined $item ? :
1 2 if ($ref eq 'ARRAY' or $ref eq 'HASH' or $ref eq 'REF' and ref(defined $item ? $item : ${$_[0];}) eq 'REF')
137 1 3 defined $item ? :
138 0 4 if ($printer->caller_message_position eq 'after') { }
152 9 37 if ($printer->return_value eq 'pass') { }
7 30 elsif ($printer->return_value eq 'void' or not $wantarray) { }
156 1 8 if defined $ref
158 0 8 if (not $ref) { }
2 6 elsif ($ref eq 'ARRAY') { }
2 4 elsif ($ref eq 'HASH') { }
4 0 elsif (grep {$ref eq $_;} 'REF', 'SCALAR', 'VSTRING') { }
187 59 0 if (keys %$rc_arguments)
191 0 59 if (exists $rc_arguments->{$caller})
197 59 0 if ($arguments_for{$caller})
202 14 45 if (keys %$run_properties)
204 0 14 if exists $run_properties->{'profile'}
217 2 16 if (exists $args->{$key}) { }
0 16 elsif (exists $rc_arguments->{$caller} and exists $rc_arguments->{$caller}{$key}) { }
0 16 elsif (exists $rc_arguments->{'_'}{$key}) { }