| line |
true |
false |
branch |
|
70
|
4 |
10 |
if @_ |
|
|
4 |
0 |
if @_ |
|
|
4 |
8 |
if @_ |
|
|
4 |
6 |
if @_ |
|
|
8 |
6 |
if @_ |
|
|
4 |
6 |
if @_ |
|
|
4 |
6 |
if @_ |
|
|
4 |
4 |
if @_ |
|
|
4 |
4 |
if @_ |
|
|
4 |
12 |
if @_ |
|
|
4 |
10 |
if @_ |
|
|
4 |
0 |
if @_ |
|
|
4 |
6 |
if @_ |
|
|
4 |
24 |
if @_ |
|
|
4 |
4 |
if @_ |
|
|
4 |
10 |
if @_ |
|
|
4 |
8 |
if @_ |
|
|
4 |
12 |
if @_ |
|
|
4 |
6 |
if @_ |
|
|
4 |
16 |
if @_ |
|
78
|
0 |
20 |
if $@ |
|
398
|
0 |
4 |
unless my $url = $self->rss |
|
399
|
0 |
4 |
unless my $parser = 'MP3::PodcastFetch::Feed'->new($url) |
|
403
|
0 |
4 |
unless @channels |
|
481
|
0 |
4 |
if (my $max = $self->max) |
|
482
|
0 |
0 |
if @items > $max |
|
507
|
0 |
6 |
@_ ? : |
|
508
|
0 |
0 |
@_ ? : |
|
509
|
0 |
0 |
@_ ? : |
|
510
|
0 |
6 |
@_ ? : |
|
528
|
0 |
4 |
unless chdir $dir |
|
529
|
0 |
4 |
unless my $d = 'IO::Dir'->new('.') |
|
531
|
4 |
10 |
if $file eq '..' |
|
532
|
4 |
6 |
if $file eq '.' |
|
549
|
0 |
4 |
if ($self->keep_old) { } |
|
551
|
0 |
0 |
if (@goners + keys(%to_fetch) > $max) |
|
560
|
0 |
0 |
if (ref $self->delete_callback eq 'CODE') |
|
570
|
0 |
4 |
if $self->env_proxy |
|
596
|
0 |
12 |
unless $mode eq 'exists' or $mode eq 'modified-since' |
|
601
|
6 |
6 |
if ($mode eq 'exists' and -e $filename) |
|
608
|
0 |
6 |
if ($response->is_error) |
|
614
|
0 |
6 |
if ($response->code eq 304) |
|
620
|
6 |
0 |
if ($response->code eq 200) |
|
624
|
0 |
6 |
if (defined $length and $size < $length) { } |
|
634
|
6 |
0 |
if ($mode eq 'exists') |
|
639
|
6 |
0 |
$pubdate ? : |
|
640
|
6 |
0 |
if ($secs) |
|
663
|
16 |
0 |
unless $self->verbose |
|
699
|
0 |
6 |
if (ref $self->fetch_callback eq 'CODE') |
|
715
|
6 |
0 |
unless my $playlist = $self->playlist_handle |
|
727
|
0 |
0 |
if ($base =~ /^[A-Z]:\\/ or $base =~ /\\/) { } |
|
728
|
0 |
0 |
unless 'File::Spec::Win32'->can('catfile') |
|
731
|
0 |
0 |
unless 'File::Spec::Unix'->can('catfile') |
|
752
|
6 |
0 |
$pubdate ? : |
|
754
|
6 |
0 |
if ($self->upgrade_tags ne 'no') |
|
759
|
6 |
0 |
if $comment |
|
775
|
0 |
6 |
if $@ |
|
778
|
0 |
6 |
if ($self->use_pub_date) { } |
|
804
|
0 |
0 |
unless defined $duration |
|
820
|
0 |
12 |
if ($self->rewrite_filename eq 'md5') { } |
|
|
6 |
6 |
elsif ($self->rewrite_filename) { } |
|
824
|
0 |
0 |
if (defined $extension) { } |
|
832
|
6 |
0 |
if defined $extension |
|
856
|
2 |
8 |
unless (-d $dir) |
|
857
|
0 |
2 |
unless mkpath($dir) |
|
860
|
0 |
10 |
unless -w $dir |