| line |
true |
false |
branch |
|
41
|
1 |
5 |
if &blessed($_[0]) and $_[0]->isa('Hash::DefHash') |
|
53
|
43 |
19 |
if ($opts{'check'} // 1) |
|
70
|
76 |
19 |
if $k =~ /$re_key/x |
|
82
|
0 |
11 |
unless my($p_prop, $p_attr, $p_lang, $p_attr_wo_prop) = $k =~ /$re_key/x |
|
85
|
7 |
4 |
if (defined $p_prop) { } |
|
86
|
1 |
6 |
if $p_prop =~ /\A_/ |
|
88
|
5 |
1 |
if (defined $p_attr) { } |
|
|
0 |
1 |
elsif (defined $p_lang) { } |
|
89
|
2 |
3 |
if $p_attr =~ /(?:\A|\.)_/ |
|
97
|
2 |
2 |
if $p_attr_wo_prop =~ /(?:\A|\.)_/ |
|
111
|
0 |
11 |
unless my($p_prop, $p_attr, $p_lang, $p_attr_wo_prop) = $k =~ /$re_key/x |
|
113
|
4 |
2 |
if defined $p_attr or $p_lang or defined $p_attr_wo_prop |
|
114
|
1 |
1 |
if $p_prop =~ /\A_/ |
|
124
|
2 |
4 |
unless exists $h->{$prop} |
|
146
|
0 |
2 |
unless $prop =~ /$re_prop/ |
|
147
|
1 |
1 |
if exists $h->{$prop} |
|
155
|
0 |
3 |
unless $prop =~ /$re_prop/ |
|
156
|
1 |
2 |
if (exists $h->{$prop}) { } |
|
170
|
0 |
2 |
unless $prop =~ /$re_prop/ |
|
171
|
1 |
1 |
if (exists $h->{$prop}) { } |
|
183
|
0 |
22 |
unless my($p_prop, $p_attr, $p_lang, $p_attr_wo_prop) = $k =~ /$re_key/x |
|
185
|
2 |
20 |
if defined $p_prop and $p_prop =~ /\A_/ |
|
186
|
4 |
16 |
if defined $p_attr and $p_attr =~ /(?:\A|\.)_/ |
|
187
|
4 |
12 |
if defined $p_attr_wo_prop and $p_attr_wo_prop =~ /(?:\A|\.)_/ |
|
188
|
10 |
2 |
if (defined $p_attr or defined $p_lang or defined $p_attr_wo_prop) { } |
|
189
|
5 |
5 |
if $delattrs |
|
201
|
4 |
2 |
unless ($prop eq '') |
|
202
|
0 |
4 |
unless $prop =~ /$re_prop/ |
|
207
|
0 |
56 |
unless my($p_prop, $p_attr, $p_lang, $p_attr_wo_prop) = $k =~ /$re_key/x |
|
211
|
24 |
32 |
if (defined $p_attr) { } |
|
|
0 |
32 |
elsif (defined $p_lang) { } |
|
|
20 |
12 |
elsif (defined $p_attr_wo_prop) { } |
|
212
|
17 |
7 |
unless $prop eq $p_prop |
|
213
|
4 |
3 |
if $p_attr =~ /(?:\A|\.)_/ |
|
216
|
0 |
0 |
unless $prop eq $p_prop |
|
219
|
14 |
6 |
unless $prop eq '' |
|
220
|
4 |
2 |
if $p_attr_wo_prop =~ /(?:\A|\.)_/ |
|
233
|
2 |
9 |
unless exists $h->{$k} |
|
260
|
3 |
2 |
if ($prop ne '') |
|
261
|
0 |
3 |
unless $prop =~ /$re_prop/ |
|
263
|
0 |
5 |
unless $attr =~ /$re_attr/ |
|
266
|
2 |
3 |
if exists $h->{$k} |
|
275
|
2 |
2 |
if ($prop ne '') |
|
276
|
0 |
2 |
unless $prop =~ /$re_prop/ |
|
278
|
0 |
4 |
unless $attr =~ /$re_attr/ |
|
280
|
2 |
2 |
if (exists $h->{$k}) { } |
|
295
|
2 |
2 |
if ($prop ne '') |
|
296
|
0 |
2 |
unless $prop =~ /$re_prop/ |
|
298
|
0 |
4 |
unless $attr =~ /$re_attr/ |
|
300
|
2 |
2 |
if (exists $h->{$k}) { } |
|
313
|
0 |
20 |
unless my($p_prop, $p_attr, $p_lang, $p_attr_wo_prop) = $k =~ /$re_key/x |
|
315
|
8 |
12 |
if (defined $p_attr) { } |
|
|
0 |
12 |
elsif ($p_lang) { } |
|
|
8 |
4 |
elsif (defined $p_attr_wo_prop) { } |
|
316
|
4 |
4 |
unless $prop eq $p_prop |
|
317
|
2 |
2 |
if $p_attr =~ /(?:\A|\.)_/ |
|
319
|
0 |
0 |
unless $prop eq $p_prop |
|
321
|
4 |
4 |
unless $prop eq '' |
|
322
|
2 |
2 |
if $p_attr_wo_prop =~ /(?:\A|\.)_/ |
|
343
|
17 |
18 |
if ($self->{'parent'}) |
|
347
|
1 |
34 |
if $res eq 'C' |
|
382
|
6 |
4 |
if ($lang eq $deflang) { } |
|
391
|
10 |
1 |
if (defined $v) |
|
392
|
1 |
9 |
if ($k->[2]) |
|
394
|
0 |
1 |
$has_nl ? : |