| line |
true |
false |
branch |
|
20
|
8 |
2 |
if (@_ > 0)
|
|
21
|
0 |
8 |
@_ == 1 ? :
|
|
22
|
0 |
8 |
unless ref $args eq "HASH"
|
|
27
|
0 |
8 |
if exists $args->{'profile'}
|
|
35
|
9 |
1 |
$use_prototypes ? :
|
|
85
|
0 |
13 |
if $args_to_use->{'quiet'}
|
|
89
|
0 |
13 |
if ($printer->colored eq "auto")
|
|
94
|
2 |
10 |
if ($ref eq "ARRAY" or $ref eq "HASH" or $ref eq "REF" and ref ${$_[0];} eq "REF")
|
|
98
|
0 |
13 |
if ($printer->caller_message_position eq 'after') { }
|
|
118
|
0 |
44 |
if ($args_to_use->{'quiet'})
|
|
129
|
0 |
0 |
if ($printer->colored eq "auto" and $printer->return_value eq "dump" and $want_value)
|
|
134
|
4 |
37 |
if ($ref eq "ARRAY" or $ref eq "HASH" or $ref eq "REF" and ref ${$_[0];} eq "REF")
|
|
138
|
1 |
43 |
if ($printer->caller_message_position eq 'after') { }
|
|
156
|
1 |
3 |
if (not ref $_[0] and @_ == 1)
|
|
168
|
0 |
4 |
if ($args_to_use->{'quiet'})
|
|
179
|
0 |
0 |
if ($printer->colored eq "auto" and $printer->return_value eq "dump" and $want_value)
|
|
183
|
1 |
3 |
defined $item ? :
|
|
184
|
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")
|
|
188
|
1 |
3 |
defined $item ? :
|
|
189
|
0 |
4 |
if ($printer->caller_message_position eq 'after') { }
|
|
203
|
9 |
39 |
if ($return_type eq 'pass') { }
|
|
|
7 |
32 |
elsif ($return_type eq 'void' or not $wantarray) { }
|
|
204
|
9 |
0 |
unless $quiet
|
|
207
|
1 |
8 |
if defined $ref
|
|
209
|
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') { }
|
|
226
|
7 |
0 |
unless $quiet
|
|
238
|
61 |
0 |
if (keys %$rc_arguments)
|
|
242
|
0 |
61 |
if (exists $rc_arguments->{$caller})
|
|
248
|
61 |
0 |
if ($arguments_for{$caller})
|
|
253
|
15 |
46 |
if (keys %$run_properties)
|
|
255
|
0 |
15 |
if exists $run_properties->{'profile'}
|
|
268
|
2 |
18 |
if (exists $args->{$key}) { }
|
|
|
0 |
18 |
elsif (exists $rc_arguments->{$caller} and exists $rc_arguments->{$caller}{$key}) { }
|
|
|
0 |
18 |
elsif (exists $rc_arguments->{'_'}{$key}) { }
|