| line |
true |
false |
branch |
|
21
|
0 |
7 |
@args % 2 ? : |
|
29
|
5 |
2 |
unless $to_scalar |
|
30
|
3 |
4 |
$format eq 'xml' ? : |
|
35
|
2 |
5 |
if ($to_scalar) { } |
|
40
|
0 |
5 |
unless print {$fh;} $OUTPUT |
|
45
|
3 |
4 |
if defined wantarray |
|
51
|
0 |
2 |
unless $format |
|
58
|
0 |
0 |
if ($to_scalar and !ref($to_scalar) || ref $to_scalar ne 'SCALAR') |
|
61
|
5 |
0 |
unless ($to_scalar) |
|
62
|
0 |
5 |
if (-e $file and not $overwrite) |
|
67
|
0 |
5 |
unless $fh->open($file, '>') |
|
89
|
4 |
0 |
$self->{'TOTAL_TIME'} ? : |
|
92
|
4 |
0 |
if ($tmptime) |
|
94
|
4 |
0 |
if $#tmptime <= 1 |
|
99
|
4 |
0 |
$self->{'AVERAGE_TIME'} ? : |
|
109
|
1 |
3 |
$to_scalar ? : |
|
|
4 |
0 |
@tmptime ? : |
|
115
|
0 |
4 |
if $#{$$cd{'data'};} < 0 |
|
116
|
4 |
0 |
if $drives ne 'off' |
|
121
|
0 |
43 |
unless ($song) |
|
127
|
43 |
0 |
$m3u->[2] ? : |
|
128
|
43 |
0 |
$song ? : |
|
150
|
3 |
0 |
if $self->{'TOTAL_TIME'} > 0 |
|
160
|
0 |
3 |
unless $sc |
|
182
|
0 |
47 |
if @args % 2 |
|
188
|
0 |
47 |
unless my $t = 'Text::Template'->new('TYPE', 'STRING', 'SOURCE', $opt{'template'}, 'DELIMITERS', ['<%', '%>']) |
|
194
|
0 |
0 |
$ref eq 'ARRAY' ? : |
|
|
47 |
0 |
$ref eq 'HASH' ? : |
|
205
|
0 |
47 |
unless my $text = $t->fill_in('PACKAGE', $class . '::Dummy', 'PREPEND', sprintf('use strict;use vars qw[%s];', join(' ', @globals)), 'HASH', $opt{'params'}) |