Branch Coverage

blib/lib/MP3/M3U/Parser/Export.pm
Criterion Covered Total %
branch 32 58 55.1


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'})