Branch Coverage

blib/lib/XML/SAX/PurePerl/DocType.pm
Criterion Covered Total %
branch 10 42 23.8


line true false branch
12 1 21 if ($data =~ /^
14 0 1 unless $self->skip_whitespace($reader)
20 1 0 if ($self->skip_whitespace($reader))
30 0 1 unless $reader->match('>')
43 1 0 if ($data =~ /^SYSTEM/) { }
0 0 elsif ($data =~ /^PUBLIC/) { }
45 0 1 unless $self->skip_whitespace($reader)
51 0 0 unless $self->skip_whitespace($reader)
60 0 0 unless length $data
63 0 0 if ($data =~ /^([^$quote]*)$quote/) { }
75 0 0 unless ($pubid =~ /^($XML::SAX::PurePerl::PubidChar)+$/)
79 0 0 unless $self->skip_whitespace($reader)
100 0 1 unless length $data
102 1 0 if ($data =~ /^([^$quote]*)$quote/) { }
118 1 0 unless $reader->match('[')
122 0 0 unless $reader->match(']')
136 0 0 if ($self->skip_whitespace($reader))
140 0 0 if ($self->PEReference($reader))
154 0 0 unless $reader->match('%')
160 0 0 unless $reader->match(';')
167 0 0 if ($self->elementdecl($reader) or $self->AttlistDecl($reader) or $self->EntityDecl($reader) or $self->NotationDecl($reader) or $self->PI($reader) or $self->Comment($reader))