| line |
true |
false |
branch |
|
71
|
0 |
2 |
unless open my $fh, '<:raw', $file |
|
77
|
0 |
10 |
if $Debug |
|
79
|
0 |
10 |
if $Debug |
|
82
|
0 |
10 |
unless $tag eq 'Cook' |
|
86
|
0 |
10 |
if $Debug |
|
88
|
0 |
10 |
if $Debug |
|
90
|
0 |
10 |
if $Debug |
|
92
|
0 |
10 |
if $Debug |
|
96
|
0 |
10 |
if $Debug |
|
102
|
0 |
10 |
if $Debug > 1 |
|
103
|
2 |
8 |
if (eof $fh) |
|
105
|
0 |
2 |
if $Debug |
|
113
|
0 |
8 |
if $Debug > 1 |
|
115
|
8 |
0 |
if (substr($peek, 8, 4) eq 'Cook') |
|
117
|
0 |
8 |
if $Debug |
|
141
|
0 |
1 |
unless open my $fh, '>:raw', $file |
|
148
|
0 |
5 |
if $discard and not $$self{'ignore_discard'} |
|
150
|
0 |
5 |
if defined $expires and time > $expires |
|
154
|
0 |
5 |
$secure ? : |
|
156
|
5 |
0 |
$domain =~ /^\./ ? : |
|
187
|
0 |
10 |
unless $string eq 'Date' |
|
190
|
0 |
10 |
if $Debug > 1 |
|
194
|
0 |
10 |
if $Debug > 1 |
|
205
|
0 |
40 |
if $Debug > 1 |