line |
true |
false |
branch |
13
|
13 |
12 |
if ($data =~ /^<\?xml$XML::SAX::PurePerl::S/o) { } |
18
|
1 |
11 |
unless $self->VersionInfo($reader) |
21
|
7 |
4 |
unless ($self->skip_whitespace($reader)) |
23
|
0 |
7 |
unless $data =~ /^\?>/ |
28
|
4 |
0 |
if ($self->EncodingDecl($reader)) |
29
|
4 |
0 |
unless ($self->skip_whitespace($reader)) |
31
|
0 |
4 |
unless $data =~ /^\?>/ |
42
|
0 |
0 |
unless $data =~ /^\?>/ |
48
|
11 |
1 |
if (not $reader->get_encoding) |
61
|
1 |
12 |
unless $data =~ /^(version$XML::SAX::PurePerl::S*=$XML::SAX::PurePerl::S*(["'])($XML::SAX::PurePerl::VersionNum)\2)/o |
65
|
1 |
11 |
if ($vernum ne '1.0') |
77
|
0 |
0 |
unless $data =~ /^(standalone$XML::SAX::PurePerl::S*=$XML::SAX::PurePerl::S*(["'])(yes|no)\2)/o |
81
|
0 |
0 |
if ($yesno eq 'yes') { } |
96
|
0 |
4 |
unless $data =~ /^(encoding$XML::SAX::PurePerl::S*=$XML::SAX::PurePerl::S*(["'])($XML::SAX::PurePerl::EncNameStart$XML::SAX::PurePerl::EncNameEnd*)\2)/o |
109
|
0 |
0 |
unless $data =~ /^<\?xml$XML::SAX::PurePerl::S+/ |
113
|
0 |
0 |
if ($self->VersionInfo($reader)) |
114
|
0 |
0 |
unless $self->skip_whitespace($reader) |
118
|
0 |
0 |
unless $self->EncodingDecl($reader) |
124
|
0 |
0 |
unless $data =~ /^\?>/ |