| line |
true |
false |
branch |
|
17
|
2 |
1 |
defined $_ && length $_ ? : |
|
|
1 |
3 |
defined $a{'GLOB'} ? : |
|
|
6 |
4 |
defined $a{'path'} ? : |
|
22
|
3 |
6 |
if (ref $_ eq 'GLOB' or ref \$_ eq 'GLOB') { } |
|
28
|
1 |
5 |
unless open _ |
|
45
|
0 |
6 |
unless @_ |
|
53
|
1 |
5 |
if grep /id$/, @subs |
|
54
|
1 |
5 |
if grep /^Uid$/, @subs |
|
60
|
18 |
0 |
exists $charset{$$args{'chars'}} ? : |
|
|
18 |
18 |
ref $$args{'chars'} eq 'ARRAY' ? : |
|
|
36 |
18 |
defined $$args{'chars'} ? : |
|
79
|
0 |
18 |
defined $args{'separator'} ? : |
|
89
|
0 |
12 |
defined $args{'separator'} ? : |
|
96
|
0 |
6 |
defined $args{'separator'} ? : |
|
99
|
0 |
6 |
$args{'IP'} ? : |
|
110
|
0 |
0 |
unless my $mtime = (stat $path)[9] |
|
124
|
0 |
0 |
exists $PARSING_CACHE{$type}{$path} && !$mtime > $PARSING_CACHE{$type}{$path}{'mtime'} ? : |
|
132
|
0 |
0 |
unless @_ |
|
179
|
0 |
40 |
ref $_[0] eq 'HASH' ? : |
|
180
|
0 |
40 |
if ($$opt{'optional'} and not ref $mml) |
|
181
|
0 |
0 |
unless -f $mml |
|
184
|
40 |
0 |
unless defined $$opt{'cache'} |
|
185
|
0 |
40 |
if ($$opt{'cache'} and not ref $mml) |
|
187
|
0 |
0 |
if $struct |
|
189
|
36 |
4 |
unless defined $$opt{'strict'} |
|
190
|
40 |
0 |
ref $mml eq 'SCALAR' ? : |
|
194
|
32 |
2 |
unless ($$opt{'keep_root'}) |
|
195
|
0 |
32 |
unless ref $struct eq 'HASH' |
|
200
|
0 |
34 |
if $$opt{'cache'} and not ref $mml |
|
211
|
168 |
36 |
if ($$opt{'strict'}) |
|
212
|
0 |
168 |
if $garb =~ /\S/ |
|
214
|
0 |
168 |
if length $attr |
|
219
|
12 |
192 |
defined $k ? : |
|
225
|
202 |
2 |
if (defined $child) |
|
226
|
20 |
182 |
if (defined $$control{$child_id}) { } |
|
227
|
8 |
12 |
if ($$control{$child_id} > 1) { } |
|
240
|
94 |
142 |
if $no_data |
|
241
|
0 |
142 |
if $$opt{'strict'} and $$mml =~ /$not_escaped_re{$$opt{'markers'}}/ |
|
246
|
46 |
96 |
if defined $k |
|
248
|
46 |
96 |
$filter_sub ? : |
|
278
|
2 |
7 |
if (my $tied = tied *{$a{'GLOB'};}) { } |
|
314
|
2 |
11 |
defined $, ? : |
|
315
|
2 |
11 |
if defined $\ |