Branch Coverage

blib/lib/Text/BibTeX/Entry.pm
Criterion Covered Total %
branch 45 78 57.6


line true false branch
221 0 111 if scalar @source and ref $source[0] eq "HASH"
224 0 111 if exists $opts->{'binmode'} and $opts->{'binmode'} =~ /utf-?8/i
225 0 111 if exists $opts->{'normalization'}
227 105 6 if (@source)
231 84 21 if (@source == 1 and ref $source[0] and $source[0]->isa('Text::BibTeX::File')) { }
15 6 elsif (@source == 2 and (defined $source[0] and not ref $source[0]) and !defined($source[1]) || fileno $source[1] >= 0) { }
6 0 elsif (@source == 1 and not ref $source[0]) { }
235 2 82 if (my $structure = $file->structure)
250 17 88 unless $status
268 0 1 if ($self->{'structure'})
272 0 1 if ($self->{'file'})
308 0 88 unless $source->isa("Text::BibTeX::File")
317 168 8 unless exists $self->{$f}
381 88 38 if not defined $preserve and defined $self->{'file'} and $self->{'file'}->isa("Text::BibTeX::File")
382 0 126 if $preserve
391 96 10 if (defined $filehandle) { }
404 18 2 if (defined $text) { }
477 25 3 exists $self->{'key'} ? :
567 145 34 defined $_ ? :
569 30 93 @x > 1 ? :
671 0 20 unless $self->exists($field)
786 0 3 unless @_ % 2 == 0
794 0 4 unless exists $self->{'values'}{$field}
819 1 3 unless (exists $self->{'values'}{$field})
831 0 4 unless ($in_list{$field})
890 16 0 if (not ref $value) { }
896 0 0 unless $value->isa("Text::BibTeX::Value")
901 0 0 $_->type == &BTAST_STRING ? :
907 0 4 unless defined $self->{'type'}
908 0 4 unless defined $self->{'metatype'}
913 4 0 if ($self->{'metatype'} == &BTE_REGULAR) { }
0 0 elsif ($self->{'metatype'} == &BTE_MACRODEF) { }
915 0 4 unless defined $self->{'key'}
940 0 16 unless (defined $value)
999 0 0 if ($self->{'file'})
1005 0 0 $lines->{'START'} == $lines->{'STOP'} ? :
1009 0 0 if (defined $field) { }
1011 0 0 exists $lines->{$field} ? :
1043 6 0 if (defined $field) { }