| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless open my $fh, "<", $file |
|
52
|
12 |
0 |
$self->{'pretty'} ? : |
|
58
|
0 |
0 |
unless open my $fh, ">", $file |
|
77
|
0 |
15 |
unless $class and $props |
|
99
|
35 |
30 |
if $props =~ /$LINES/ |
|
103
|
23 |
42 |
if ($ri > 0) |
|
107
|
4 |
61 |
if $class =~ /^[^\@]+:\s*\$/ |
|
118
|
6 |
64 |
if keys %{$globals;} |
|
125
|
7 |
41 |
if keys %{$globals;} |
|
136
|
2 |
68 |
$p =~ /^\s*\@/ ? : |
|
160
|
10 |
22 |
unless $struct->{$class} |
|
162
|
1 |
21 |
if ($class =~ /^\@/) { } |
|
166
|
21 |
39 |
if $class eq $inner |
|
167
|
10 |
29 |
if (match($struct->{$class}, $struct->{$inner})) |
|
184
|
13 |
42 |
if ($struct->{'VARIABLES'}) |
|
186
|
8 |
5 |
if $key |
|
189
|
1 |
89 |
if ($s =~ /^\@/) { } |
|
|
42 |
47 |
elsif (ref $struct->{$s}) { } |
|
193
|
4 |
26 |
$s =~ /^\&(.*)/ ? : |
|
|
30 |
12 |
$key ? : |
|
195
|
4 |
38 |
if $scp |
|
207
|
1 |
24 |
if ($key =~ /^\%(.*)/) |
|
219
|
0 |
0 |
unless delete $flat->{'GLOBAL'} |
|
227
|
0 |
0 |
unless keys %{$$flat{$class};} |
|
229
|
0 |
0 |
if (ref $flat->{$class}{$prop}) { } |
|
261
|
7 |
5 |
unless delete $flat->{'GLOBAL'} |
|
268
|
2 |
13 |
unless keys %{$$flat{$class};} |
|
271
|
2 |
24 |
if (ref $flat->{$class}{$prop}) { } |
|
298
|
8 |
9 |
$args ? : |
|
303
|
0 |
2 |
if ($args =~ /$CI/) |
|
316
|
304 |
10 |
if $string |