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'}) { } |