| line |
true |
false |
branch |
|
33
|
0 |
0 |
if ($$dtd{'XML'} and ($pub and not $sys)) |
|
48
|
0 |
0 |
if ($etype =~ /^ndata (\S+)$/i) |
|
53
|
0 |
0 |
if ($etype =~ /^cdata (\S+)$/i) |
|
64
|
0 |
0 |
if defined $value |
|
71
|
0 |
0 |
if defined $value |
|
78
|
0 |
0 |
if defined $value |
|
85
|
0 |
0 |
if defined $value |
|
92
|
0 |
0 |
if defined $value |
|
99
|
0 |
0 |
if defined $value |
|
109
|
0 |
0 |
if $self->notation |
|
112
|
0 |
0 |
if ($self->public or $self->system) { } |
|
113
|
0 |
0 |
if $self->public |
|
115
|
0 |
0 |
if $self->system |
|
125
|
0 |
0 |
if ($$self{'DTD'}{'UNEXPANDED_CONTENT'}) |
|
150
|
0 |
0 |
if ($$dtd{'XML'} and $cm eq 'CDATA') |
|
156
|
0 |
0 |
if ($$dtd{'XML'} and $stagm || $etagm) |
|
176
|
0 |
0 |
if defined $value |
|
187
|
0 |
0 |
if defined $value |
|
194
|
0 |
0 |
if defined $value |
|
201
|
0 |
0 |
if defined $value |
|
208
|
0 |
0 |
if defined $value |
|
215
|
0 |
0 |
if defined $value |
|
232
|
0 |
0 |
$expand ? : |
|
256
|
0 |
0 |
if $self->starttag_min |
|
258
|
0 |
0 |
if $self->endtag_min |
|
267
|
0 |
0 |
if ($$self{'DTD'}{'UNEXPANDED_CONTENT'}) |
|
272
|
0 |
0 |
if ($self->inclusions) |
|
277
|
0 |
0 |
if ($self->exclusions) |
|
343
|
0 |
0 |
if defined $value |
|
366
|
0 |
0 |
if defined $value |
|
374
|
0 |
0 |
if defined $value |
|
382
|
0 |
0 |
if defined $value |
|
411
|
0 |
0 |
if ($text =~ /^NOTATION \(/) |
|
416
|
0 |
0 |
if ($text =~ /^\(/) |
|
417
|
0 |
0 |
unless defined $enumtype |
|
457
|
0 |
0 |
if defined $value |
|
468
|
0 |
0 |
if defined $value |
|
475
|
0 |
0 |
if defined $value |
|
485
|
0 |
0 |
if $self->public |
|
488
|
0 |
0 |
if (not $self->public or $self->system) |
|
522
|
0 |
0 |
$param{'UnexpandedContent'} ? : |
|
553
|
0 |
0 |
if $$self{'DTD'} |
|
555
|
0 |
0 |
unless ($dtd) |
|
556
|
0 |
0 |
if ($$self{'SYSTEM_ID'}) { } |
|
|
0 |
0 |
elsif ($$self{'PUBLIC_ID'}) { } |
|
563
|
0 |
0 |
if (not $dtd) { } |
|
569
|
0 |
0 |
unless ($$self{'SYSTEM_ID'}) |
|
575
|
0 |
0 |
unless ($decl) |
|
576
|
0 |
0 |
if ($$self{'PUBLIC_ID'}) { } |
|
584
|
0 |
0 |
if ($$self{'PUBLIC_ID'}) { } |
|
592
|
0 |
0 |
if ($decl) { } |
|
603
|
0 |
0 |
if ($dtd) |
|
606
|
0 |
0 |
unless open $dtd_fh, $dtd |
|
613
|
0 |
0 |
if $dtd |
|
619
|
0 |
0 |
if ($tok =~ /
|
|
|
0 |
0 |
elsif ($tok =~ /
|
|
|
0 |
0 |
elsif ($tok =~ /
|
|
|
0 |
0 |
elsif ($tok =~ /
|
|
|
0 |
0 |
elsif ($tok =~ /
|
|
653
|
0 |
0 |
if defined $val |
|
663
|
0 |
0 |
if (defined $val) |
|
665
|
0 |
0 |
if (ref $self) |
|
679
|
0 |
0 |
if ($type eq 'param') { } |
|
680
|
0 |
0 |
if exists $$self{'PENT'}{$name} |
|
690
|
0 |
0 |
if exists $$self{'GENT'}{$name} |
|
707
|
0 |
0 |
unless $count |
|
717
|
0 |
0 |
unless $count |
|
755
|
0 |
0 |
if exists $$self{'ATTR'}{$_} |
|
761
|
0 |
0 |
unless $output{$_} |
|
782
|
0 |
0 |
if ($gent->type ne 'sdata') { } |
|
|
0 |
0 |
elsif ($gent->type ne 'pi') { } |
|
786
|
0 |
0 |
if $text eq '&' |
|
787
|
0 |
0 |
if $text eq '<' |
|
794
|
0 |
0 |
if $text eq '&' |
|
795
|
0 |
0 |
if $text eq '<' |
|
830
|
0 |
0 |
if ($tok eq '%') |
|
839
|
0 |
0 |
if ($tok =~ /^[\"\']/) { } |
|
846
|
0 |
0 |
if ($tok =~ /public/i) { } |
|
|
0 |
0 |
elsif ($tok =~ /system/i) { } |
|
|
0 |
0 |
elsif ($tok =~ /^sdata$/i) { } |
|
|
0 |
0 |
elsif ($tok =~ /^pi$/i) { } |
|
|
0 |
0 |
elsif ($tok =~ /^cdata$/i) { } |
|
850
|
0 |
0 |
if ($tok ne '>') |
|
876
|
0 |
0 |
if ($tok =~ /ndata/i) { } |
|
|
0 |
0 |
elsif ($tok =~ /cdata/i) { } |
|
890
|
0 |
0 |
if ($tok ne '>') |
|
895
|
0 |
0 |
if $debug > 1 |
|
915
|
0 |
0 |
if ($tok =~ /^\(/) { } |
|
921
|
0 |
0 |
if ($ntok =~ /[\|\(\)]/) { } |
|
939
|
0 |
0 |
if ($tok =~ /^\%/) { } |
|
|
0 |
0 |
elsif ($tok =~ /^[\-o]/is) { } |
|
943
|
0 |
0 |
if ($expand =~ /^[\-o]/is) { } |
|
948
|
0 |
0 |
if $expand =~ /\S/ |
|
960
|
0 |
0 |
if ($tok eq '(') { } |
|
970
|
0 |
0 |
if ($tok eq '-') |
|
977
|
0 |
0 |
if ($tok eq '+') |
|
984
|
0 |
0 |
if ($tok ne '>') |
|
991
|
0 |
0 |
if (exists $$self{'ELEM'}{$name}) { } |
|
1003
|
0 |
0 |
if $debug > 1 |
|
1024
|
0 |
0 |
if ($tok =~ /^\(/) { } |
|
1030
|
0 |
0 |
if ($ntok =~ /[\|\(\)]/) { } |
|
1041
|
0 |
0 |
if $debug > 2 |
|
1059
|
0 |
0 |
if $debug > 2 |
|
1062
|
0 |
0 |
if ($values =~ /^notation$/i) |
|
1063
|
0 |
0 |
if ($self->peek_token($dtd)) |
|
1069
|
0 |
0 |
if ($values eq '(') |
|
1075
|
0 |
0 |
if $debug > 4 |
|
1077
|
0 |
0 |
if $debug > 4 |
|
1078
|
0 |
0 |
if ($ntok =~ /[,\|\(\)]/) { } |
|
1081
|
0 |
0 |
if $debug > 4 |
|
1090
|
0 |
0 |
if $debug > 2 |
|
1094
|
0 |
0 |
if $debug > 2 |
|
1096
|
0 |
0 |
if ($type =~ /\#FIXED/i) { } |
|
|
0 |
0 |
elsif (not $type =~ /^\#/) { } |
|
1098
|
0 |
0 |
if $defval =~ /^[\"\']/ |
|
1101
|
0 |
0 |
if $defval =~ /^[\"\']/ |
|
1105
|
0 |
0 |
if $debug > 2 |
|
1115
|
0 |
0 |
if (exists $$self{'ATTR'}{$name}) { } |
|
1142
|
0 |
0 |
if ($tok =~ /public/i) { } |
|
|
0 |
0 |
elsif ($tok =~ /system/i) { } |
|
1147
|
0 |
0 |
if ($tok ne '>') |
|
1153
|
0 |
0 |
if ($tok eq '>') { } |
|
1165
|
0 |
0 |
if ($tok ne '>') |
|
1169
|
0 |
0 |
if $debug > 1 |
|
1173
|
0 |
0 |
if (exists $$self{'NOTN'}{$name}) { } |
|
1198
|
0 |
0 |
if ($tok =~ /^include$/i) |
|
1224
|
0 |
0 |
if ($dtd =~ /^/s) |
|
1229
|
0 |
0 |
if ($dtd =~ /^--.*?--/s) |
|
1234
|
0 |
0 |
if ($dtd =~ /^<\?.*?>/s) |
|
1239
|
0 |
0 |
if ($dtd =~ /^
|
|
1241
|
0 |
0 |
if $debug > 3 |
|
1245
|
0 |
0 |
if ($dtd =~ /^[\(\)\-\+\|\&\,\>]/) |
|
1247
|
0 |
0 |
if $debug > 3 |
|
1251
|
0 |
0 |
if ($dtd =~ /^[\"\']/) |
|
1254
|
0 |
0 |
if $debug > 3 |
|
1258
|
0 |
0 |
if ($dtd =~ /^\%([a-zA-Z0-9\_\-\.]+);?/) |
|
1260
|
0 |
0 |
if $debug > 3 |
|
1261
|
0 |
0 |
if ($return_peref) { } |
|
1270
|
0 |
0 |
if ($dtd =~ /^([^\s\|\&\,\(\)\[\]\>\%]+)/s) |
|
1272
|
0 |
0 |
if $debug > 3 |
|
1276
|
0 |
0 |
if ($dtd =~ /^(\%)/s) |
|
1278
|
0 |
0 |
if $debug > 3 |
|
1282
|
0 |
0 |
if $debug > 3 |
|
1292
|
0 |
0 |
unless $entity |
|
1294
|
0 |
0 |
if ($$entity{'PUBLIC'} or $$entity{'SYSTEM'}) { } |
|
1298
|
0 |
0 |
if ($$entity{'PUBLIC'}) |
|
1303
|
0 |
0 |
if (not $filename and $$entity{'SYSTEM'}) |
|
1308
|
0 |
0 |
unless (defined $filename) |
|
1312
|
0 |
0 |
if ($self->debug) { } |
|
1322
|
0 |
0 |
unless open F, $filename |
|
1339
|
0 |
0 |
if ($text =~ /^\"(.*)\"$/s) { } |
|
|
0 |
0 |
elsif ($text =~ /^\'(.*)\'$/s) { } |
|
1354
|
0 |
0 |
if ($text ne '') |
|
1363
|
0 |
0 |
if ($entref =~ /\;$/s) { } |
|
1399
|
0 |
0 |
unless (open F, $decl) |
|
1414
|
0 |
0 |
unless (/
|
|
1418
|
0 |
0 |
if (/
|
|
1423
|
0 |
0 |
if (/namecase\s+/is) { } |
|
1431
|
0 |
0 |
if ($word =~ /^general$/i) { } |
|
|
0 |
0 |
elsif ($word =~ /^entity$/i) { } |
|
1455
|
0 |
0 |
if $file =~ m[^(.*)/[^/]+$] |
|
1458
|
0 |
0 |
if $path eq $searchpath |
|
1461
|
0 |
0 |
if not $found and $searchpath |
|
1471
|
0 |
0 |
if $system =~ m[^/] or $system =~ m[^[a-z]:[\\/]] |
|
1474
|
0 |
0 |
if (-f "$path/$system") |
|
1481
|
0 |
0 |
if ($found) { } |
|
1495
|
0 |
0 |
unless $self->verbose |
|
1497
|
0 |
0 |
if ($self->debug or $$self{'NEWLINE'}) { } |