Branch Coverage

blib/lib/XML/SAX/PurePerl/DTDDecls.pm

Criterion	Covered	Total	%
branch	0	142	0.0

line	true	false	branch
12	0	0	unless $data =~ /^
15	0	0	unless $self->skip_whitespace($reader)
20	0	0	unless $self->skip_whitespace($reader)
27	0	0	unless $reader->match('>')
38	0	0	if ($data =~ /^EMPTY/) { }
	0	0	elsif ($data =~ /^ANY/) { }
50	0	0	if ($model)
63	0	0	unless $data =~ /^\(/
65	0	0	if ($data =~ /^\(\s*\#PCDATA/)
91	0	0	unless $reader->match('|')
97	0	0	if ($seen{$name})
107	0	0	unless $reader->match(')')
111	0	0	if ($reader->match('*'))
140	0	0	unless $reader->match('(')
148	0	0	if (my $choice = $self->Choice($reader)) { }
157	0	0	unless $reader->match(')')
168	0	0	if ($data =~ /^([\?\+\*])/)
181	0	0	if (my $name = $self->Name($reader))
185	0	0	if defined $name
214	0	0	if ($cp)
228	0	0	if ($data =~ /^
233	0	0	unless $self->skip_whitespace($reader)
241	0	0	unless $reader->match('>')
258	0	0	unless $self->skip_whitespace($reader)
260	0	0	unless $self->skip_whitespace($reader)
264	0	0	unless $self->skip_whitespace($reader)
292	0	0	unless $data =~ /^CDATA/
301	0	0	if ($data =~ /^(IDREFS?|ID|ENTITIES|ENTITY|NMTOKENS?)/)
317	0	0	unless $data =~ /^NOTATION/
320	0	0	unless $self->skip_whitespace($reader)
322	0	0	unless $reader->match('(')
341	0	0	unless $data =~ /^\)/
352	0	0	unless $reader->match('(')
371	0	0	unless $data =~ /^\)/
388	0	0	if ($data =~ /^(\#REQUIRED|\#IMPLIED)/)
393	0	0	if ($data =~ /^\#FIXED/)
395	0	0	unless $self->skip_whitespace($reader)
408	0	0	unless $data =~ /^
411	0	0	unless $self->skip_whitespace($reader)
414	0	0	unless $self->PEDecl($reader)
418	0	0	unless $reader->match('>')
427	0	0	unless $self->skip_whitespace($reader)
431	0	0	if ($value = $self->ExternalID($reader)) { }
438	0	0	if ($$self{'ParseOptions'}{'entities'}{$name}) { }
451	0	0	unless $reader->match('%')
453	0	0	unless $self->skip_whitespace($reader)
455	0	0	unless $self->skip_whitespace($reader)
472	0	0	unless ($data =~ /^"/)
473	0	0	unless $data =~ /^'/
484	0	0	unless length $data
487	0	0	if ($data =~ /^($re+)/) { }
	0	0	elsif ($reader->match('&')) { }
	0	0	elsif ($reader->match('%')) { }
	0	0	elsif ($reader->match($quote)) { }
494	0	0	if ($reader->match('#')) { }
497	0	0	if ($reader->match('x')) { }
500	0	0	unless length $data
502	0	0	unless ($data =~ /^([0-9a-fA-F]*)/)
507	0	0	if (length $1 == length $data) { }
520	0	0	unless length $data
522	0	0	unless ($data =~ /^([0-9]*)/)
527	0	0	if (length $1 == length $data) { }
536	0	0	unless $reader->match(';')
538	0	0	unless ($char =~ /$XML::SAX::PurePerl::SingleChar/)
565	0	0	unless $self->skip_whitespace($reader)
567	0	0	unless $data =~ /^NDATA/
569	0	0	unless $self->skip_whitespace($reader)
578	0	0	unless $data =~ /^
580	0	0	unless $self->skip_whitespace($reader)
585	0	0	unless length $data
588	0	0	if ($data =~ /^([^>]*)>/) { }