| line |
true |
false |
branch |
|
21
|
1 |
0 |
$params{'date'} ? : |
|
|
1 |
1 |
$params{'dt'} ? : |
|
35
|
0 |
2 |
unless (-d $home . '/.bankholidays') |
|
46
|
2 |
0 |
if (-f $cache and time - (stat $cache)[9] < 86400) { } |
|
47
|
0 |
2 |
unless open my $fh, '<', $cache |
|
61
|
0 |
0 |
unless open my $fh, '>', $cache |
|
86
|
4 |
2 |
if $ts->coords != 2 |
|
90
|
0 |
22 |
unless @$row |
|
91
|
132 |
0 |
if $_ |
|
94
|
132 |
0 |
if ($col) |
|
95
|
10 |
122 |
if ($col =~ /(\d{4})/) { } |
|
|
100 |
22 |
elsif ($col =~ /(\w+)\s(\d{1,2})(\*?)/) { } |
|
117
|
0 |
6 |
if ($opts{'date'}) |
|
121
|
2 |
4 |
if ($opts{'Tomorrow'}) { } |
|
|
2 |
2 |
elsif ($opts{'Yesterday'}) { } |
|
127
|
0 |
6 |
if $param->{'dt'}->dow == 7 |
|
129
|
0 |
6 |
if int $param->{'dt'}->day == $holiday->{'day'} |