| line |
true |
false |
branch |
|
43
|
1 |
4 |
if (not &getopts("ho:r", $self->{'_opts'}) or @ARGV < 4 or $self->{'_opts'}{'h'}) |
|
63
|
0 |
4 |
if (&none(sub {
$self->{'_opts'}{'o'} eq $_;
}
, @OUTPUT_FORMATS)) |
|
75
|
1 |
7 |
if ($App::MARC::Filter::EVAL_ERROR) |
|
76
|
0 |
1 |
defined $previous_record ? : |
|
85
|
4 |
3 |
unless (defined $record) |
|
94
|
3 |
0 |
if (defined $subfield_value) |
|
96
|
1 |
2 |
if ($self->{'_opts'}{'r'}) { } |
|
97
|
1 |
0 |
if ($subfield_value =~ /$self->{'_marc_value'}/ms) |
|
101
|
1 |
1 |
if ($subfield_value eq $self->{'_marc_value'}) |
|
105
|
2 |
1 |
if ($match) |
|
118
|
2 |
0 |
unless ($num) |
|
119
|
2 |
0 |
if ($self->{'_opts'}{'o'} eq "xml") |
|
124
|
2 |
0 |
if ($self->{'_opts'}{'o'} eq 'xml') { } |
|
|
0 |
0 |
elsif ($self->{'_opts'}{'o'} eq 'ascii') { } |
|
132
|
2 |
2 |
if ($num) |
|
133
|
2 |
0 |
if ($self->{'_opts'}{'o'} eq "xml") |