| line |
true |
false |
branch |
|
34
|
2 |
128 |
if exists $options->{$_} |
|
38
|
0 |
20 |
if exists $options->{$_} |
|
47
|
0 |
0 |
unless open my $fd, '<:utf8', $file |
|
50
|
0 |
0 |
if $self->{'playlist'} |
|
60
|
0 |
0 |
if $self->{'verbose'} |
|
62
|
0 |
0 |
if ($all) { } |
|
68
|
0 |
0 |
unless ($plname) |
|
70
|
0 |
0 |
if $plname eq '' |
|
72
|
0 |
0 |
unless ($plname) |
|
78
|
0 |
0 |
if $plname |
|
86
|
1 |
12 |
if (eval {
do {
$data->[0]
}
}) { } |
|
89
|
1 |
1 |
if ($all) { } |
|
97
|
0 |
1 |
if $self->{'playlist'} |
|
102
|
10 |
2 |
if ($data =~ /^Song( \d+)?:/) { } |
|
|
0 |
2 |
elsif ($data =~ /^(?:<\?xml.*?>\s*)?
|
|
112
|
0 |
2 |
unless $data =~ m[^(irealb(?:ook)?://.*?)] |
|
122
|
0 |
13 |
if $self->{'playlist'} |
|
133
|
1 |
0 |
unless $i |
|
135
|
0 |
0 |
if ($i > 0 and $i <= @{$u->{'playlist'}->songs;}) { } |