Branch Coverage

blib/lib/XML/SAX/PurePerl/XMLDecl.pm
Criterion Covered Total %
branch 17 38 44.7


line true false branch
13 10 12 if ($data =~ /^<\?xml$XML::SAX::PurePerl::S/o) { }
18 1 8 unless $self->VersionInfo($reader)
21 4 4 unless ($self->skip_whitespace($reader))
23 0 4 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 9 unless $data =~ /^(version$XML::SAX::PurePerl::S*=$XML::SAX::PurePerl::S*(["'])($XML::SAX::PurePerl::VersionNum)\2)/o
65 1 8 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 =~ /^\?>/