| line |
true |
false |
branch |
|
22
|
0 |
6 |
if ($HParam{'Handlers'}) |
|
25
|
2 |
4 |
if (defined $HParam{'dupatt'}) |
|
28
|
1 |
1 |
unless ($cstr =~ /\A [\x{21}-\x{bf}]* \z/msux) |
|
31
|
0 |
1 |
if ($cstr =~ /[0-9A-Za-z"']/msux) |
|
52
|
0 |
0 |
unless open my $ifh, '<', $inpname |
|
62
|
0 |
0 |
if (ref $pitem eq 'GLOB') { } |
|
66
|
0 |
0 |
unless open my $ifh, '<', \$pitem |
|
77
|
0 |
0 |
unless my $ExpatNB = $self->parse_start |
|
85
|
0 |
0 |
if $buf eq '' |
|
147
|
0 |
15 |
unless my($fl, $pn) = $_[0] =~ /\A \( \? ([\w\^\-]*) : (.*?) \) \z/msux |
|
154
|
0 |
15 |
unless my($caret, $class) = $pattern =~ /\A \[ (\^?) (.*?) \] \z/msux |
|
158
|
0 |
15 |
$caret eq '^' ? : |
|
193
|
0 |
1230 |
if (length $buffer_text > 100000) |
|
201
|
2005 |
2655 |
if ($buffer_action eq 'C') { } |
|
|
7 |
2648 |
elsif ($buffer_action eq 'F') { } |
|
|
529 |
2119 |
elsif ($buffer_action eq 'G') { } |
|
|
73 |
2046 |
elsif ($buffer_action eq '&') { } |
|
|
960 |
1086 |
elsif ($buffer_action eq '<') { } |
|
|
26 |
1060 |
elsif ($buffer_action eq '!') { } |
|
|
3 |
1057 |
elsif ($buffer_action eq 'A') { } |
|
|
3 |
1054 |
elsif ($buffer_action eq 'B') { } |
|
|
448 |
606 |
elsif ($buffer_action eq 'D') { } |
|
|
49 |
557 |
elsif ($buffer_action eq ']') { } |
|
|
183 |
374 |
elsif ($buffer_action eq 'S') { } |
|
|
104 |
270 |
elsif ($buffer_action eq 'E') { } |
|
|
270 |
0 |
elsif ($buffer_action eq '?') { } |
|
202
|
1689 |
316 |
if ($$self{'_Stage'} <= 2) { } |
|
205
|
1408 |
281 |
if ($buffer_text =~ /\A (\s*) (\S) (.*) \z/msux) { } |
|
|
281 |
0 |
elsif ($buffer_text =~ /\A \s* \z/msux) { } |
|
216
|
1689 |
0 |
if $level == 0 |
|
218
|
281 |
1408 |
if ($ch eq '') { } |
|
|
777 |
631 |
elsif ($ch eq '<') { } |
|
|
49 |
582 |
elsif ($ch eq ']' and $$self{'_DocOpen'} > 0) { } |
|
|
5 |
577 |
elsif ($ch eq q['] or $ch eq '"') { } |
|
|
2 |
575 |
elsif ($ch eq '>') { } |
|
|
529 |
46 |
elsif ($ch =~ /$rx_syn_syn/u) { } |
|
|
8 |
38 |
elsif ($ch =~ /$rx_syn_tok/u) { } |
|
233
|
5 |
0 |
if $level == 0 |
|
243
|
529 |
0 |
if $level == 0 |
|
256
|
245 |
71 |
if ($buffer_text =~ /\A ([^<&]*) ([<&]) (.*) \z/msux) |
|
260
|
177 |
68 |
if $level == 0 |
|
267
|
52 |
17 |
if $level == 0 |
|
276
|
2 |
5 |
if ($$self{'_QChar'} eq q[']) { } |
|
|
5 |
0 |
elsif ($$self{'_QChar'} eq '"') { } |
|
277
|
0 |
2 |
if ($buffer_text =~ /\A ([^']*) (') (.*) \z/msux) { } |
|
285
|
1 |
4 |
if ($buffer_text =~ /\A ([^"]*) (") (.*) \z/msux) { } |
|
296
|
7 |
0 |
if $level == 0 |
|
298
|
6 |
1 |
if ($ch eq '') { } |
|
310
|
525 |
4 |
if ($buffer_text =~ /\A (\S*) (\s) (.*) \z/msux) { } |
|
317
|
529 |
0 |
if $level == 0 |
|
319
|
156 |
373 |
if ($emit =~ /($ng_syn_syn)/msux) { } |
|
321
|
13 |
143 |
if ($out =~ /$rx_tok_syn/u or $out eq '>') { } |
|
329
|
1 |
372 |
if ($ch eq '') { } |
|
340
|
64 |
9 |
if ($buffer_text =~ /\A . ([^<;]*) ([<;]) (.*) \z/msux) |
|
342
|
3 |
61 |
unless ($ch eq ';') |
|
346
|
11 |
18 |
if $level == 0 |
|
355
|
2 |
958 |
if (length $buffer_text < 3) |
|
363
|
10 |
948 |
if ($c2 eq '!' and $c3 eq '-') |
|
367
|
3 |
945 |
if ($c2 eq '!' and $c3 eq '[') |
|
371
|
396 |
549 |
if ($c2 eq '!' and $c3 =~ /\w/msux) |
|
375
|
174 |
375 |
if ($c2 =~ /[,\-.\w:\[|]/msux) |
|
379
|
102 |
273 |
if ($c2 eq '/') |
|
383
|
270 |
3 |
if ($c2 eq '?') |
|
390
|
0 |
26 |
if (length $buffer_text < 4) |
|
395
|
1 |
25 |
unless ($prefix eq ') (.*) \z/msux) |
|
401
|
9 |
0 |
if $level == 0 |
|
410
|
0 |
3 |
if (length $buffer_text < 9) |
|
416
|
1 |
2 |
unless ($prefix eq '
|
|
420
|
2 |
0 |
if $level == 0 |
|
427
|
2 |
1 |
if ($buffer_text =~ /\A (.*?) (\]\]>) (.*) \z/msux) |
|
430
|
2 |
0 |
if $level == 0 |
|
433
|
2 |
0 |
if $level == 0 |
|
440
|
1 |
0 |
if $level == 0 |
|
450
|
1589 |
374 |
if (defined $1) |
|
453
|
395 |
1194 |
if ($fragment =~ /[>\[]/msux) |
|
460
|
395 |
53 |
if ($finpos != -1) |
|
462
|
0 |
395 |
unless ($terminal eq '>' or $terminal eq '[') |
|
467
|
332 |
0 |
if $level == 0 |
|
476
|
0 |
49 |
if (length $buffer_text < 2) |
|
481
|
0 |
49 |
unless ($$self{'_DocOpen'}) |
|
485
|
2 |
47 |
unless ($buffer_text =~ /\A (\] \s* >) (.*) \z/msux) |
|
491
|
47 |
0 |
if $level == 0 |
|
500
|
290 |
64 |
if (defined $1) |
|
503
|
174 |
116 |
if ($fragment =~ />/msux) |
|
510
|
174 |
9 |
if ($finpos != -1) |
|
513
|
142 |
20 |
if $level == 0 |
|
522
|
99 |
5 |
if ($buffer_text =~ /\A ([^>]* [>]) (.*) \z/msux) |
|
525
|
83 |
9 |
if $level == 0 |
|
534
|
270 |
0 |
if ($buffer_text =~ /\A ([^>]* [>]) (.*) \z/msux) |
|
537
|
254 |
0 |
if $level == 0 |
|
559
|
782 |
0 |
if ($cb_Init) |
|
568
|
74 |
0 |
if ($cb_Final) |
|
580
|
0 |
61 |
unless my($var) = $ampersand =~ /\A & ([^&;]+) ; \z/msux |
|
583
|
2 |
59 |
if ($var =~ /\A \# (\d+) \z/msux) { } |
|
591
|
2 |
0 |
if ($cb_Char) |
|
598
|
5 |
54 |
unless (defined $rhs) |
|
599
|
4 |
1 |
if ($level == 0) { } |
|
615
|
11 |
43 |
if ($code eq 'L') { } |
|
|
23 |
20 |
elsif ($code eq 'F') { } |
|
|
20 |
0 |
elsif ($code eq 'T') { } |
|
621
|
11 |
0 |
if ($cb_Char) |
|
626
|
1 |
22 |
if ($$self{'_Seen'}{$var}) |
|
632
|
3 |
19 |
if ($cb_Exen) { } |
|
639
|
3 |
0 |
if ($cb_Exef) |
|
644
|
1 |
2 |
unless ($$self{'_Text'} eq '') |
|
647
|
1 |
1 |
if (@{$$self{'_Stack'};}) |
|
653
|
1 |
18 |
unless open my $ifh, '<', $value |
|
658
|
12 |
18 |
if $buf eq '' |
|
665
|
1 |
11 |
unless ($$self{'_Text'} eq '') |
|
668
|
1 |
10 |
if (@{$$self{'_Stack'};}) |
|
676
|
1 |
19 |
if ($$self{'_Seen'}{$var}) |
|
683
|
1 |
6 |
unless ($$self{'_Text'} eq '') |
|
686
|
1 |
5 |
if (@{$$self{'_Stack'};}) |
|
706
|
1716 |
292 |
unless ($$self{'_Stage'} == 3) |
|
708
|
2 |
1714 |
if ($emit =~ /\S/msux) |
|
709
|
2 |
0 |
if ($$self{'_Stage'} == 4) { } |
|
718
|
1714 |
292 |
if ($default) { } |
|
719
|
985 |
729 |
unless ($emit eq '') |
|
724
|
985 |
0 |
if ($cb_Default) |
|
734
|
158 |
29 |
if (defined $1) { } |
|
|
29 |
0 |
elsif (defined $2) { } |
|
744
|
187 |
0 |
unless ($fragment eq '') |
|
748
|
187 |
0 |
if ($cb_Char) |
|
753
|
0 |
292 |
unless ($emit =~ /\G (.*) \z/msux) |
|
757
|
0 |
292 |
if ($rest ne '') |
|
767
|
0 |
174 |
unless my($elem, $param, $term) = $emit =~ m(\A < \s* ([,\-.\w:\[|]+) (.*?) (/?) > \z)msux |
|
777
|
10 |
35 |
if (defined $2) { } |
|
|
35 |
0 |
elsif (defined $3) { } |
|
787
|
1 |
44 |
if ($def_txt =~ /
|
|
800
|
1 |
8 |
unless (defined $rhs) |
|
812
|
1 |
7 |
unless ($code eq 'L') |
|
818
|
0 |
42 |
unless ($def_txt =~ /\G (.*) \z/msux) |
|
823
|
2 |
40 |
if ($rest =~ /&/msux) |
|
829
|
3 |
37 |
if (defined $att_hash{$def_var}) { } |
|
830
|
2 |
1 |
if ($$self{'_Dupatt'} eq '') |
|
841
|
0 |
167 |
unless ($param =~ /\G (.*) \z/msux) |
|
846
|
4 |
163 |
if ($rest =~ /\S/msux) |
|
847
|
3 |
1 |
if ($level == 0) { } |
|
855
|
2 |
161 |
unless ($$self{'_Dupatt'} eq '') |
|
867
|
162 |
0 |
if ($cb_Start) |
|
872
|
14 |
148 |
if ($term eq '/') { } |
|
|
0 |
148 |
elsif ($term ne '') { } |
|
873
|
0 |
14 |
if ($$self{'_Scount'} < 1) |
|
879
|
0 |
14 |
unless (defined $ele_from_stack) |
|
883
|
0 |
14 |
unless ($elem eq $ele_from_stack) |
|
892
|
14 |
0 |
if ($cb_End) |
|
906
|
1 |
98 |
unless my($elem) = $emit =~ m(\A < \s* / \s* ([,\-.\w:\[|]+) \s* > \z)msux |
|
909
|
1 |
97 |
if ($$self{'_Scount'} < 1) |
|
915
|
3 |
94 |
unless (defined $ele_from_stack) |
|
916
|
1 |
2 |
if ($hist =~ /F/msux) { } |
|
924
|
2 |
92 |
unless ($elem eq $ele_from_stack) |
|
933
|
92 |
0 |
if ($cb_End) |
|
943
|
4 |
266 |
unless my($target, $data) = $emit =~ /\A <\? ([,\-.\w:\[|]+) \s* (.*) \?> \z/msux |
|
946
|
255 |
11 |
if ($target =~ /\A xml/imsux) { } |
|
947
|
2 |
253 |
unless ($$self{'_ItemCount'} == 0) |
|
955
|
9 |
410 |
if (defined $2) { } |
|
|
410 |
0 |
elsif (defined $3) { } |
|
966
|
0 |
253 |
unless ($data =~ /\G (.*) \z/msux) |
|
971
|
1 |
252 |
if ($rest =~ /\S/msux) |
|
979
|
252 |
162 |
if ($$at[0] eq 'version') { } |
|
|
146 |
16 |
elsif ($$at[0] eq 'encoding') { } |
|
|
14 |
2 |
elsif ($$at[0] eq 'standalone') { } |
|
980
|
1 |
251 |
if (defined $ver) |
|
986
|
1 |
145 |
if (defined $enc) |
|
992
|
1 |
13 |
if (defined $stand) |
|
995
|
8 |
5 |
if ($$at[1] eq 'yes') { } |
|
|
2 |
3 |
elsif ($$at[1] eq 'no') { } |
|
1009
|
1 |
243 |
unless (defined $ver) |
|
1018
|
243 |
0 |
if ($cb_Decl) |
|
1029
|
11 |
0 |
if ($cb_Proc) |
|
1040
|
0 |
9 |
unless my($comment) = $emit =~ /\A \z/msux |
|
1048
|
9 |
0 |
if ($cb_Comment) |
|
1059
|
2 |
0 |
if ($cb_CdataStart) |
|
1070
|
2 |
0 |
if ($cb_CdataEnd) |
|
1079
|
0 |
47 |
unless $emit =~ /\A \] \s* > \z/msux |
|
1082
|
0 |
47 |
unless ($$self{'_DocOpen'}) |
|
1091
|
47 |
0 |
if ($cb_DoctypeFin) |
|
1101
|
1 |
394 |
if ($$self{'_Stage'} > 2) |
|
1105
|
4 |
390 |
unless my($type, $data, $term) = $emit =~ /\A ]) \z/msux |
|
1111
|
713 |
400 |
if (defined $1) { } |
|
|
4 |
396 |
elsif (defined $2) { } |
|
|
370 |
26 |
elsif (defined $3) { } |
|
|
26 |
0 |
elsif (defined $4) { } |
|
1130
|
0 |
390 |
unless ($data =~ /\G (.*) \z/msux) |
|
1135
|
1 |
389 |
if ($rest =~ /\S/msux) |
|
1139
|
210 |
179 |
if ($type eq 'DOCTYPE') { } |
|
|
109 |
70 |
elsif ($type eq 'ENTITY') { } |
|
|
16 |
54 |
elsif ($type eq 'ELEMENT') { } |
|
|
36 |
18 |
elsif ($type eq 'ATTLIST') { } |
|
|
16 |
2 |
elsif ($type eq 'NOTATION') { } |
|
1158
|
1 |
332 |
unless ($type eq 'DOCTYPE' or $term eq '>') |
|
1168
|
3 |
207 |
unless ($$self{'_DoctCount'} == 1) |
|
1185
|
0 |
207 |
unless (defined $param0) |
|
1189
|
2 |
205 |
unless ($$param0[0] eq 'B') |
|
1194
|
91 |
114 |
$terminal eq '[' ? : |
|
1199
|
115 |
90 |
if (defined $param1) |
|
1200
|
4 |
111 |
unless ($$param1[0] eq 'B') |
|
1204
|
10 |
101 |
if ($$param1[1] eq 'SYSTEM') { } |
|
|
99 |
2 |
elsif ($$param1[1] eq 'PUBLIC') { } |
|
1215
|
1 |
108 |
unless (defined $param2) |
|
1218
|
1 |
107 |
unless ($$param2[0] eq 'Q') |
|
1222
|
8 |
99 |
if ($syspub eq 'S') { } |
|
1230
|
101 |
6 |
if (defined $param3) |
|
1231
|
1 |
100 |
unless ($$param3[0] eq 'Q') |
|
1235
|
1 |
99 |
if ($syspub eq 'S') { } |
|
1244
|
100 |
96 |
if (defined $public) |
|
1245
|
1 |
99 |
if ($public =~ /[\]\[\\]/msux) |
|
1250
|
1 |
194 |
if (@$plist) |
|
1254
|
0 |
194 |
if ($$self{'_DocOpen'}) |
|
1265
|
194 |
0 |
if ($cb_Doctype) |
|
1270
|
103 |
91 |
unless ($intern eq '1') |
|
1276
|
103 |
0 |
if ($cb_DoctypeFin) |
|
1304
|
10 |
99 |
if (@$plist and $$plist[0][0] eq 'B' and $$plist[0][1] eq '%') |
|
1311
|
0 |
109 |
unless (defined $param0) |
|
1315
|
1 |
108 |
unless ($$param0[0] eq 'B') |
|
1325
|
1 |
107 |
unless (defined $param1) |
|
1329
|
46 |
61 |
if ($$param1[0] eq 'Q') { } |
|
1334
|
3 |
58 |
unless ($$param1[1] eq 'SYSTEM') |
|
1335
|
2 |
1 |
if ($$param1[1] eq 'PUBLIC') { } |
|
1345
|
1 |
57 |
unless (defined $param2) |
|
1349
|
1 |
56 |
unless ($$param2[0] eq 'Q') |
|
1357
|
17 |
39 |
if (defined $param3) |
|
1358
|
1 |
16 |
unless ($$param3[0] eq 'B') |
|
1362
|
1 |
15 |
unless ($$param3[1] eq 'NDATA') |
|
1367
|
1 |
14 |
unless (defined $param4) |
|
1371
|
1 |
13 |
unless ($$param4[0] eq 'Q' or $$param4[0] eq 'B') |
|
1379
|
1 |
97 |
if (@$plist) |
|
1383
|
1 |
96 |
unless ($$self{'_DocOpen'}) |
|
1387
|
12 |
84 |
if (defined $ndata) { } |
|
1393
|
12 |
0 |
if ($cb_Unparsed) |
|
1399
|
3 |
81 |
if (defined $$self{'_Var'}{$name}) { } |
|
1402
|
1 |
2 |
defined $value ? : |
|
1409
|
3 |
0 |
if ($cb_Default) |
|
1413
|
2 |
1 |
unless (defined $value) |
|
1419
|
71 |
10 |
unless (defined $isparam) |
|
1420
|
38 |
33 |
if (defined $value) { } |
|
1433
|
81 |
0 |
if ($cb_Entity) |
|
1453
|
0 |
16 |
unless (defined $param0) |
|
1457
|
1 |
15 |
unless ($$param0[0] eq 'B') |
|
1465
|
1 |
14 |
unless (defined $param1) |
|
1469
|
1 |
13 |
unless ($$param1[0] eq 'P') |
|
1475
|
1 |
12 |
unless ($$self{'_DocOpen'}) |
|
1484
|
12 |
0 |
if ($cb_Element) |
|
1489
|
1 |
11 |
if (@$plist) |
|
1519
|
0 |
36 |
unless (defined $param0) |
|
1523
|
1 |
35 |
unless ($$param0[0] eq 'B') |
|
1532
|
0 |
38 |
unless (defined $param1) |
|
1536
|
1 |
37 |
unless ($$param1[0] eq 'B') |
|
1544
|
2 |
35 |
unless (defined $param2) |
|
1550
|
4 |
31 |
if ($$param2[0] eq 'B' and $$param2[1] eq 'NOTATION') { } |
|
1553
|
1 |
3 |
unless (defined $pm2b) |
|
1557
|
1 |
2 |
unless ($$pm2b[0] eq 'P') |
|
1563
|
23 |
8 |
if ($$param2[0] eq 'B') { } |
|
|
7 |
1 |
elsif ($$param2[0] eq 'P') { } |
|
1576
|
1 |
31 |
unless (defined $param3) |
|
1582
|
7 |
24 |
if ($$param3[0] eq 'B' and $$param3[1] eq '#FIXED') { } |
|
1585
|
1 |
6 |
unless (defined $pm3b) |
|
1589
|
1 |
5 |
unless ($$pm3b[0] eq 'Q') |
|
1597
|
16 |
8 |
if ($$param3[0] eq 'B') { } |
|
|
7 |
1 |
elsif ($$param3[0] eq 'Q') { } |
|
1608
|
1 |
27 |
unless ($$self{'_DocOpen'}) |
|
1617
|
27 |
0 |
if ($cb_Attlist) |
|
1639
|
0 |
16 |
unless (defined $param0) |
|
1643
|
1 |
15 |
unless ($$param0[0] eq 'B') |
|
1652
|
15 |
0 |
if (defined $param1) |
|
1653
|
1 |
14 |
unless ($$param1[0] eq 'B') |
|
1657
|
4 |
10 |
if ($$param1[1] eq 'SYSTEM') { } |
|
|
9 |
1 |
elsif ($$param1[1] eq 'PUBLIC') { } |
|
1668
|
1 |
12 |
unless (defined $param2) |
|
1671
|
1 |
11 |
unless ($$param2[0] eq 'Q') |
|
1675
|
4 |
7 |
if ($syspub eq 'S') { } |
|
1683
|
6 |
5 |
if (defined $param3) |
|
1684
|
1 |
5 |
unless ($$param3[0] eq 'Q') |
|
1688
|
0 |
5 |
if ($syspub eq 'S') { } |
|
1697
|
1 |
9 |
unless ($$self{'_DocOpen'}) |
|
1706
|
9 |
0 |
if ($cb_Notation) |
|
1711
|
1 |
8 |
if (@$plist) |
|
1719
|
243 |
0 |
$pl eq 'X' ? : |
|
|
11 |
243 |
$pl eq 'P' ? : |
|
|
269 |
254 |
$pl eq 'S' || $pl eq 'E' ? : |
|
|
2034 |
523 |
$pl eq 'A' || $pl eq 'C' || $pl eq '!' ? : |
|
|
488 |
2557 |
$pl eq 'D' || $pl eq 'F' || $pl eq 'U' || $pl eq 'I' || $pl eq 'L' || $pl eq 'O' || $pl eq 'T' ? : |
|
1748
|
1163 |
1882 |
if ($stage == 1) { } |
|
|
1378 |
504 |
elsif ($stage == 2) { } |
|
1749
|
0 |
1163 |
if ($tp eq 'DTD') { } |
|
|
40 |
1123 |
elsif ($pl eq 'S') { } |
|
1757
|
77 |
1301 |
if ($pl eq 'S') |
|
1762
|
1123 |
1922 |
if ($stage == 1) { } |
|
|
1301 |
621 |
elsif ($stage == 2) { } |
|
|
593 |
28 |
elsif ($stage == 3) { } |
|
|
28 |
0 |
elsif ($stage == 4) { } |
|
1763
|
0 |
880 |
unless ($pl eq 'X' or $pl eq 'C' or $pl eq '!') |
|
1766
|
243 |
880 |
if ($pl eq 'X') |
|
1771
|
0 |
813 |
unless ($tp eq 'DTD' or $pl eq 'C' or $pl eq '!') |
|
1776
|
0 |
325 |
unless ($tp eq 'TAG' or $tp eq 'PRC' or $tp eq 'TXT') |
|
1779
|
78 |
515 |
if ($pl eq 'E' and $$self{'_Scount'} == 0) |
|
1784
|
1 |
27 |
unless ($pl eq 'C') |
|
1802
|
421 |
3452 |
if ($emit =~ /\n ([^\n]*) \z/msux) { } |
|
1813
|
4 |
77 |
if ($$self{'_Action'} eq 'F') |
|
1817
|
1 |
76 |
if ($$self{'_Action'} eq 'G') |
|
1821
|
1 |
75 |
if (@{$$self{'_Stack'};}) |
|
1825
|
0 |
75 |
unless ($$self{'_Scount'} == 0) |
|
1829
|
1 |
74 |
unless ($$self{'_Text'} eq '') |