| line |
true |
false |
branch |
|
26
|
0 |
1 |
if exists $defaults{$key} and $protected{$key}
|
|
28
|
368 |
42 |
!$rt || $rt eq 'CODE' ? :
|
|
30
|
280 |
130 |
if $args{'protected'}
|
|
31
|
410 |
0 |
if $args{'make_attributes'}
|
|
39
|
10 |
2 |
if $self->{'from'}
|
|
54
|
11 |
56 |
unless $test
|
|
61
|
1 |
14 |
if (my $rtype = ref $src) { }
|
|
62
|
1 |
0 |
if ($rtype eq 'ARRAY' or $rtype eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($rtype eq 'GLOB') { }
|
|
75
|
14 |
0 |
$p->is_file ? :
|
|
79
|
0 |
15 |
unless $rcfg eq 'ARRAY' or $rcfg eq 'HASH'
|
|
81
|
1 |
14 |
if $rcfg eq 'HASH'
|
|
96
|
2 |
42 |
if ($cfg->{'suite'}) { }
|
|
98
|
0 |
2 |
unless ref $cfg->{'suite'} eq 'ARRAY'
|
|
101
|
4 |
0 |
if $root
|
|
106
|
0 |
4 |
if $debug
|
|
135
|
0 |
15 |
if $trace
|
|
137
|
0 |
15 |
if @idx > 1
|
|
138
|
14 |
1 |
@idx ? :
|
|
149
|
14 |
42 |
if ($test->{'suite_title'} and my $sg = $$sglobals{$test->{'suite_title'}})
|
|
166
|
170 |
1193 |
if ($reftype eq 'ARRAY') { }
|
|
|
108 |
1085 |
elsif ($reftype eq 'HASH') { }
|
|
|
1085 |
0 |
elsif (not $reftype) { }
|
|
176
|
71 |
43 |
$sigil eq '$' ? :
|
|
178
|
0 |
114 |
unless exists $src->{$varname}
|
|
181
|
0 |
114 |
if ++$loop_count > $max_loop
|
|
191
|
2 |
55 |
if not $filename or ref $filename
|