Branch Coverage

blib/lib/PICA/XMLParser.pm
Criterion Covered Total %
branch 11 84 13.1


line true false branch
25 0 3 $params{'Field'} ? :
2 1 $params{'Record'} ? :
0 3 $params{'Collection'} ? :
0 3 $params{'Proceed'} ? :
56 1 0 if (ref $self eq 'PICA::XMLParser') { }
59 1 0 unless ($$self{'proceed'})
64 0 1 if (UNIVERSAL::isa($data, 'PICA::Record'))
76 0 0 if (ref $data eq 'ARRAY') { }
0 0 elsif (ref $data eq 'CODE') { }
93 0 0 $self eq 'PICA::XMLParser' ? :
94 0 0 unless defined $data
103 2 0 if (ref $self eq 'PICA::XMLParser') { }
106 2 0 unless ($$self{'proceed'})
111 2 0 if ref \$file eq 'SCALAR'
117 0 0 if (ref $file eq 'GLOB' or eval { do { $file->isa('IO::Handle') } }) { }
126 0 0 $self eq 'PICA::XMLParser' ? :
127 0 0 unless defined $file
172 0 0 if $ns and $ns ne $PICA::Record::XMLNAMESPACE
174 0 0 if ($name eq 'subfield') { }
0 0 elsif ($name eq 'field' or $name eq 'datafield') { }
0 0 elsif ($name eq 'record') { }
0 0 elsif ($name eq 'collection') { }
177 0 0 if (defined $code) { }
178 0 0 if ($code =~ /$PICA::Field::SUBFIELD_CODE_REGEXP/) { }
189 0 0 if (defined $tag) { }
190 0 0 unless ($tag =~ /$PICA::Field::FIELD_TAG_REGEXP/)
197 0 0 if ($occurrence and not $occurrence =~ /$PICA::Field::FIELD_OCCURRENCE_REGEXP/)
202 0 0 $occurrence ? :
220 0 0 if ($name eq 'subfield') { }
0 0 elsif ($name eq 'field' or $name eq 'datafield') { }
0 0 elsif ($name eq 'record') { }
0 0 elsif ($name eq 'collection') { }
227 0 0 unless $$self{'subfields'}
235 0 0 if ($$self{'field_handler'})
239 0 0 if (UNIVERSAL::isa($field, 'PICA::Field'))
243 0 0 if $self->finished
247 0 0 if (not $$self{'offset'} && $$self{'read_counter'} < $$self{'offset'})
250 0 0 if ($$self{'record_handler'})
253 0 0 if ($record)
259 0 0 if $$self{'collection_handler'}
272 0 0 if (defined $$self{'subfield_code'})
282 0 0 if ($$self{'filename'}) { }