| line |
true |
false |
branch |
|
40
|
3 |
8 |
if (not &getopts("fh", $self->{'_opts'}) or $self->{'_opts'}{'h'} or @ARGV < 2) |
|
57
|
1 |
7 |
if ($self->{'_marc_field'} ne "leader" and not $self->{'_marc_field'} =~ /^\d+$/ms) |
|
63
|
1 |
5 |
if ($self->{'_marc_field'} ne "leader" and int $self->{'_marc_field'} > 9 and not defined $self->{'_marc_subfield'}) |
|
78
|
1 |
17 |
if ($App::MARC::List::EVAL_ERROR) |
|
79
|
0 |
1 |
defined $previous_record ? : |
|
88
|
6 |
11 |
unless (defined $record) |
|
93
|
4 |
7 |
if ($self->{'_marc_field'} eq 'leader') { } |
|
99
|
6 |
1 |
if (defined $self->{'_marc_subfield'}) { } |
|
114
|
5 |
1 |
if (%{$ret_hr;}) |
|
115
|
2 |
3 |
if ($self->{'_opts'}{'f'}) { } |
|
121
|
0 |
2 |
unless $ret_hr->{$a} <=> $ret_hr->{$b} |