line |
true |
false |
branch |
41
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
0 |
0 |
@_ == 1 ? : |
45
|
0 |
0 |
if $args{'style'} eq '2' |
49
|
0 |
0 |
unless open INFILE, "$fn" |
54
|
0 |
0 |
if ($altstyle) |
71
|
0 |
0 |
if (ref $i eq 'HASH') { } |
73
|
0 |
0 |
if ($j =~ /^(.*?)\_(.*?)\_([0-9]+)\_attr$/) { } |
76
|
0 |
0 |
if (ref $$i{$tagnm} eq 'ARRAY') { } |
78
|
0 |
0 |
if (ref $$i{$tagnm}[$cnt] eq '') |
81
|
0 |
0 |
unless ($hold =~ /^\s*$/) |
90
|
0 |
0 |
if (ref $$i{$tagnm} eq 'HASH') { } |
100
|
0 |
0 |
unless ($hold =~ /^\s*$/) |
112
|
0 |
0 |
if (ref $i eq 'ARRAY') |
197
|
0 |
0 |
if ($xml =~ m[^[\s\n]*\<$firsttag(\>|[\s\n]\>|[\s\n][^\>]*[^/]\>)(.*?)\${firsttag}[\s\n]*\>(.*)$]s) { } |
205
|
0 |
0 |
if ($xml =~ m[^[\s\n]*\<$firsttag(/\>|[\s\n][^\>]*/\>)(.*)$]s) { } |
210
|
0 |
0 |
unless (ref $xml) |
221
|
0 |
0 |
if ($xmlfragment =~ m[^(.*?)\${firsttag}[\s\n]*\>(.*)$]s) { } |
249
|
0 |
0 |
if ($xmlfragment =~ m[^(.*?)\<$firsttag(\>|[\s\n]\>|[\s\n][^\>]*[^/]\>)(.*?)\${firsttag}[\s\n]*\>(.*)$]s) { } |
252
|
0 |
0 |
unless ($retflag) |
261
|
0 |
0 |
if ($xmlfragment =~ m[^(.*?)\<$firsttag(/\>|[\s\n][^\>]*/\>)(.*)$]s) { } |
262
|
0 |
0 |
unless ($retflag) |
291
|
0 |
0 |
if ($opening{$k} > $closing{$k}) |
297
|
0 |
0 |
if $flag |
302
|
0 |
0 |
if ($xmlfragment2 =~ m[(.*?)\${firsttag}[\s\n]*\>(.*)$]s) { } |
326
|
0 |
0 |
if (@retarr) |
333
|
0 |
0 |
if (ref $remainderparse eq 'HASH') |
338
|
0 |
0 |
if (keys %{$rethash;}) { } |