| line |
true |
false |
branch |
|
22
|
0 |
7 |
@args % 2 ? : |
|
30
|
5 |
2 |
unless $to_scalar |
|
31
|
3 |
4 |
$format eq 'xml' ? : |
|
36
|
2 |
5 |
if ($to_scalar) { } |
|
41
|
0 |
5 |
unless print {$fh;} $OUTPUT |
|
46
|
3 |
4 |
if defined wantarray |
|
52
|
0 |
2 |
unless $format |
|
59
|
0 |
0 |
if ($to_scalar and !ref($to_scalar) || ref $to_scalar ne 'SCALAR') |
|
62
|
5 |
0 |
unless ($to_scalar) |
|
63
|
0 |
5 |
if (-e $file and not $overwrite) |
|
68
|
0 |
5 |
unless $fh->open($file, '>') |
|
89
|
4 |
0 |
$$self{'TOTAL_TIME'} ? : |
|
93
|
4 |
0 |
if ($tmptime) |
|
95
|
4 |
0 |
if $#tmptime <= 1 |
|
98
|
4 |
0 |
$$self{'AVERAGE_TIME'} ? : |
|
103
|
1 |
3 |
$to_scalar ? : |
|
|
4 |
0 |
@tmptime ? : |
|
116
|
0 |
4 |
if $#{$$cd{'data'};} < 0 |
|
117
|
4 |
0 |
if $drives ne 'off' |
|
122
|
0 |
43 |
unless ($song) |
|
128
|
43 |
0 |
$$m3u[2] ? : |
|
129
|
43 |
0 |
$song ? : |
|
150
|
3 |
0 |
if $$self{'TOTAL_TIME'} > 0 |
|
161
|
0 |
3 |
unless $sc |
|
183
|
0 |
47 |
if @args % 2 |
|
186
|
0 |
47 |
unless my $t = 'Text::Template'->new('TYPE', 'STRING', 'SOURCE', $opt{'template'}, 'DELIMITERS', ['<%', '%>']) |
|
195
|
0 |
0 |
$ref eq 'ARRAY' ? : |
|
|
47 |
0 |
$ref eq 'HASH' ? : |
|
202
|
0 |
47 |
unless my $text = $t->fill_in('PACKAGE', $class . '::Dummy', 'PREPEND', sprintf('use strict;use vars qw[%s];', join(' ', @globals)), 'HASH', $opt{'params'}) |