Branch Coverage

blib/lib/Perl/SAX.pm
Criterion Covered Total %
branch 24 60 40.0


line true false branch
112 0 1 if ($param{'Handler'}) { }
118 0 1 if ($param{'Output'}) { }
127 0 1 unless $$self{'Handler'} = 'XML::SAX::Writer'->new('Output', $$self{'Output'})
133 0 1 if ($param{'NamespaceURI'})
134 0 0 if (length $param{'NamespaceURI'} > 1) { }
144 0 1 if ($param{'Prefix'})
172 0 1 unless my $Document = _INSTANCE(shift(), 'PPI::Document')
176 0 1 unless $self->_parse_document($Document)
184 0 21 unless my $Element = _INSTANCE(shift(), 'PPI::Element')
187 0 0 $Element->isa('PPI::Structure') ? :
2 0 $Element->isa('PPI::Statement') ? :
19 2 $Element->isa('PPI::Token') ? :
195 0 1 unless my $Document = _INSTANCE(shift(), 'PPI::Document')
198 0 1 unless my $Element = $self->_element($Document)
201 0 7 unless $self->_parse($Child)
210 0 19 unless my $Token = _INSTANCE(shift(), 'PPI::Token')
214 0 19 if $self->can($method)
217 0 19 unless my $Element = $self->_element($Token)
229 0 2 unless my $Statement = _INSTANCE(shift(), 'PPI::Statement')
233 0 2 if ($method ne '_parse_statement' and $self->can($method))
238 0 2 unless my $Element = $self->_element($Statement)
241 0 14 unless $self->_parse($Child)
250 0 0 unless my $Structure = _INSTANCE(shift(), 'PPI::Structure')
254 0 0 if ($self->can($method) and $method ne '_parse_structure')
259 0 0 unless my $Element = $self->_element($Structure)
262 0 0 unless $self->_parse($Child)
285 19 0 ref $_[0] ? :
300 0 0 ref $_[1] eq 'HASH' ? :
22 0 _INSTANCE($_[0], 'PPI::Element') ? :
308 0 22 $$self{'Prefix'} ? :