| line |
true |
false |
branch |
|
43
|
3 |
9 |
if (not &getopts("fhs", $self->{'_opts'}) or $self->{'_opts'}{'h'} or @ARGV < 2) |
|
61
|
9 |
0 |
unless ($self->{'_opts'}{'s'}) |
|
62
|
1 |
8 |
if ($marc_field ne "leader" and not $marc_field =~ /^\d+$/ms) |
|
68
|
1 |
6 |
if ($marc_field ne "leader" and int $marc_field > 9 and not defined $marc_subfield) |
|
76
|
1 |
6 |
unless (-r $marc_xml_file) |
|
80
|
0 |
6 |
if ($self->_open_marc_input($marc_xml_file, \$fh, \$errno)) |
|
82
|
0 |
0 |
if (defined $errno) |
|
90
|
0 |
6 |
if ($App::MARC::List::EVAL_ERROR) |
|
102
|
1 |
17 |
if ($App::MARC::List::EVAL_ERROR) |
|
103
|
0 |
1 |
defined $previous_record ? : |
|
112
|
6 |
11 |
unless (defined $record) |
|
117
|
4 |
7 |
if ($marc_field eq 'leader') { } |
|
123
|
6 |
1 |
if (defined $marc_subfield) { } |
|
138
|
5 |
1 |
if (%{$ret_hr;}) |
|
139
|
2 |
3 |
if ($self->{'_opts'}{'f'}) { } |
|
145
|
0 |
2 |
unless $ret_hr->{$a} <=> $ret_hr->{$b} |
|
164
|
6 |
0 |
if (defined ${$fh_sr;}) |