| line |
true |
false |
branch |
|
557
|
0 |
1 |
unless defined $fh |
|
566
|
0 |
1 |
defined $_[0] ? : |
|
569
|
0 |
1 |
unless ref $opt eq 'HASH' |
|
572
|
0 |
1 |
if exists $$opt{'artist'} |
|
575
|
0 |
1 |
if exists $$opt{'client_comment'} |
|
578
|
0 |
1 |
if exists $$opt{'client_name'} |
|
581
|
0 |
1 |
if exists $$opt{'client_version'} |
|
584
|
0 |
1 |
if exists $$opt{'disc_length'} |
|
587
|
0 |
1 |
if exists $$opt{'discid'} |
|
590
|
0 |
1 |
if exists $$opt{'extd'} |
|
593
|
0 |
1 |
if exists $$opt{'genre'} |
|
596
|
0 |
1 |
if exists $$opt{'revision'} |
|
599
|
0 |
1 |
if exists $$opt{'title'} |
|
602
|
0 |
1 |
if (exists $$opt{'track'}) { } |
|
603
|
0 |
0 |
unless ref $$opt{'track'} eq 'ARRAY' |
|
611
|
0 |
1 |
if exists $$opt{'year'} |
|
646
|
11 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
654
|
9 |
0 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
656
|
9 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
661
|
0 |
0 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
662
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
666
|
0 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
668
|
0 |
0 |
if $val =~ /$rx/ |
|
673
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
674
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
761
|
0 |
8 |
if (scalar @_) { } |
|
810
|
0 |
9 |
unless &_value_is_allowed('track', @_) |
|
827
|
0 |
1 |
unless $line =~ /$XMCD_RX/ |
|
833
|
1 |
1 |
if $line =~ /$TFO_RX/ |
|
834
|
1 |
0 |
if $line =~ /^\s*#/ |
|
847
|
1 |
9 |
unless (defined $offset) |
|
860
|
0 |
1 |
unless $track |
|
866
|
1 |
7 |
if (defined $len) |
|
871
|
1 |
6 |
if (defined $rev) |
|
876
|
1 |
5 |
if (defined $name) |
|
883
|
1 |
4 |
if (defined $discid) |
|
887
|
4 |
0 |
if $line =~ /^\s*#/ |
|
890
|
0 |
1 |
unless $self->get_disc_length |
|
892
|
0 |
1 |
unless defined $self->get_revision |
|
894
|
0 |
1 |
unless $self->get_client_name |
|
896
|
0 |
1 |
unless $self->get_discid |
|
911
|
2 |
43 |
if (defined $str) |
|
916
|
2 |
41 |
if (defined $str) |
|
921
|
2 |
39 |
if (defined $str) |
|
927
|
18 |
21 |
if (defined $nr) |
|
932
|
2 |
19 |
if (defined $str) |
|
937
|
18 |
1 |
if (defined $nr) |
|
944
|
0 |
1 |
unless $title |
|
960
|
0 |
1 |
if scalar @TTITLEN > scalar $self->get_track |
|
972
|
0 |
1 |
if scalar @EXTTN > scalar $self->get_track |
|
996
|
0 |
1 |
unless &_value_is_allowed('artist', $val) |
|
1007
|
0 |
1 |
unless &_value_is_allowed('client_comment', $val) |
|
1018
|
0 |
1 |
unless &_value_is_allowed('client_name', $val) |
|
1029
|
0 |
1 |
unless &_value_is_allowed('client_version', $val) |
|
1040
|
0 |
1 |
unless &_value_is_allowed('disc_length', $val) |
|
1051
|
0 |
1 |
unless &_value_is_allowed('discid', $val) |
|
1062
|
0 |
1 |
unless &_value_is_allowed('extd', $val) |
|
1073
|
0 |
1 |
unless &_value_is_allowed('genre', $val) |
|
1111
|
0 |
1 |
unless &_value_is_allowed('revision', $val) |
|
1122
|
0 |
1 |
unless &_value_is_allowed('title', $val) |
|
1132
|
0 |
2 |
unless &_value_is_allowed('track', @_) |
|
1143
|
0 |
1 |
unless &_value_is_allowed('year', $val) |
|
1197
|
0 |
1 |
if $self->get_client_comment |
|
1202
|
0 |
1 |
unless $self->get_discid |
|
1219
|
9 |
0 |
if (defined $track) { } |
|
1235
|
9 |
0 |
if (defined $track) { } |
|
1267
|
0 |
1 |
unless defined $fh |