| 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}) { } |