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