| line |
true |
false |
branch |
|
306
|
0 |
0 |
if ($meth =~ /^add_(\w+)/) { } |
|
|
0 |
0 |
elsif ($meth =~ /^get_(\w+)/) { } |
|
|
0 |
0 |
elsif ($meth =~ /^set_(\w+)/) { } |
|
309
|
0 |
0 |
unless $self->can($attrib) |
|
316
|
0 |
0 |
unless $self->can($attrib) |
|
323
|
0 |
0 |
unless $self->can($attrib) |
|
331
|
0 |
0 |
unless defined $str |
|
343
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
353
|
0 |
0 |
if (ref $where eq 'CODE') { } |
|
354
|
0 |
0 |
if &$where($_) |
|
360
|
0 |
0 |
unless defined $_->$k and $_->$k eq $val |
|
362
|
0 |
0 |
if $ok == 1 |
|
366
|
0 |
0 |
wantarray ? : |
|
373
|
0 |
0 |
if (@objs == 0) { } |
|
|
0 |
0 |
elsif (@objs == 1 and ref $objs[0] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (@objs == 1 and not defined $objs[0]) { } |
|
389
|
0 |
0 |
wantarray ? : |
|
395
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
406
|
0 |
0 |
if (ref $obj eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $obj eq $class) { } |
|
|
0 |
0 |
elsif (defined $obj and $class->can('_body')) { } |
|
|
0 |
0 |
elsif (not defined $obj) { } |
|
435
|
0 |
0 |
if ($obj->does('MODS::Record::Unique')) |
|
446
|
0 |
0 |
unless ref $type eq 'ARRAY' |
|
449
|
0 |
0 |
unless ref($_) =~ /^MODS::Element::/ |
|
456
|
0 |
0 |
if ($self->can('_body')) { } |
|
457
|
0 |
0 |
if defined $val |
|
474
|
0 |
0 |
if $opts{'xml_prolog'} |
|
478
|
0 |
0 |
if ($class eq 'mods' or $class eq 'modsCollection') |
|
487
|
0 |
0 |
if ($key =~ /^_/) { } |
|
|
0 |
0 |
elsif (ref $val eq '') { } |
|
497
|
0 |
0 |
if ($self->can('_body')) |
|
498
|
0 |
0 |
if (ref $self->_body and $self->_body->can('as_xml')) { } |
|
509
|
0 |
0 |
if ($key =~ /^_/ or ref $val ne 'ARRAY') |
|
532
|
0 |
0 |
if (ref $ret->{$_} eq 'ARRAY' and @{$ret->{$_};} == 0) |