| line |
true |
false |
branch |
|
296
|
0 |
2 |
unless open my $fh, '<', $config_file
|
|
354
|
1 |
14 |
if $option eq $self->feed_alias
|
|
361
|
0 |
14 |
if ($self->{'overlay'}) { }
|
|
404
|
0 |
14 |
unless defined $pattern
|
|
420
|
0 |
15 |
if $option =~ m[/$]
|
|
422
|
1 |
14 |
if ($option eq 'all') { }
|
|
|
1 |
13 |
elsif ($option eq 'new') { }
|
|
|
0 |
13 |
elsif ($option eq 'fulltext') { }
|
|
451
|
0 |
5 |
if (-e "$dir/$year/$mon") { }
|
|
456
|
0 |
5 |
if -f "$dir/$year_files[0]"
|
|
511
|
5 |
9 |
if (my($title_year) = $title =~ /^([0-9]{4})/) { }
|
|
514
|
0 |
5 |
if ($title_year == $years[0]) { }
|
|
|
0 |
5 |
elsif ($title_year == $years[-1]) { }
|
|
517
|
5 |
0 |
if (grep {$title_year eq $_;} @years)
|
|
530
|
28 |
42 |
if (exists $description{$link}) { }
|
|
536
|
67 |
3 |
if ($title ne $link) { }
|
|
539
|
13 |
54 |
if ($link eq 'new')
|
|
567
|
0 |
2 |
if (exists $cache{$this_month})
|
|
578
|
2 |
0 |
if ($month == 1) { }
|
|
586
|
2 |
0 |
unless (-d $self->local_path($year))
|
|
592
|
0 |
0 |
if ($month == 1)
|
|
616
|
0 |
2 |
if -f $year_file
|
|
619
|
0 |
2 |
unless -d $year_file
|
|
624
|
0 |
2 |
if -f "$year_file/index"
|
|
658
|
2 |
0 |
if ($count > 1) { }
|
|
|
0 |
0 |
elsif ($count == 0) { }
|
|
|
0 |
0 |
elsif ($count == 1) { }
|
|
689
|
2 |
0 |
if (-d $month_file) { }
|
|
|
0 |
0 |
elsif (-f $month_file) { }
|
|
691
|
0 |
2 |
if -f "$month_file/index"
|
|
764
|
13 |
4 |
if (-d $entry_loc)
|
|
768
|
13 |
4 |
unless @tag_files
|
|
794
|
8 |
14 |
if (my $ico_markup = $self->icon_markup($entry))
|
|
799
|
7 |
15 |
if (-f $entry_loc)
|
|
803
|
0 |
15 |
unless -d $entry_loc
|
|
806
|
13 |
2 |
if (-f "$entry_loc/index")
|
|
813
|
9 |
6 |
if (@sub_entries >= 1)
|
|
816
|
5 |
4 |
if ($level eq 'index' or -f "$entry_loc/wrt-noexpand.prop") { }
|
|
|
4 |
0 |
elsif ($level eq 'all') { }
|
|
823
|
0 |
6 |
if $se =~ $self->binfile_expr
|
|
879
|
6 |
23 |
if ($cache{$entry . $alt})
|
|
887
|
8 |
15 |
if (-f $entry_loc) { }
|
|
|
15 |
0 |
elsif (-d $entry_loc) { }
|
|
900
|
4 |
76 |
if (-e "$icon_loc.$_")
|
|
907
|
19 |
4 |
unless $suffix
|
|
975
|
0 |
34 |
unless open my $fh, '<', $file
|
|
984
|
0 |
34 |
unless close $fh
|
|
986
|
34 |
0 |
$self->embedded_perl ? :
|
|
1067
|
1 |
0 |
if (-d $month_file) { }
|
|
1083
|
2 |
0 |
if ($extracted_title)
|
|
1085
|
0 |
2 |
if (@subtitles)
|