| line |
true |
false |
branch |
|
67
|
0 |
2 |
unless open my $fh, '<:raw', $file |
|
73
|
0 |
10 |
if $Debug |
|
75
|
0 |
10 |
if $Debug |
|
78
|
0 |
10 |
unless $tag eq 'Cook' |
|
82
|
0 |
10 |
if $Debug |
|
84
|
0 |
10 |
if $Debug |
|
86
|
0 |
10 |
if $Debug |
|
88
|
0 |
10 |
if $Debug |
|
92
|
0 |
10 |
if $Debug |
|
98
|
0 |
10 |
if $Debug > 1 |
|
99
|
2 |
8 |
if (eof $fh) |
|
101
|
0 |
2 |
if $Debug |
|
109
|
0 |
8 |
if $Debug > 1 |
|
111
|
8 |
0 |
if (substr($peek, 8, 4) eq 'Cook') |
|
113
|
0 |
8 |
if $Debug |
|
137
|
0 |
1 |
unless open my $fh, '>:raw', $file |
|
144
|
0 |
5 |
if $discard and not $self->{'ignore_discard'} |
|
146
|
0 |
5 |
if defined $expires and time > $expires |
|
150
|
0 |
5 |
$secure ? : |
|
152
|
5 |
0 |
$domain =~ /^\./ ? : |
|
183
|
0 |
10 |
unless $string eq 'Date' |
|
186
|
0 |
10 |
if $Debug > 1 |
|
190
|
0 |
10 |
if $Debug > 1 |
|
201
|
0 |
40 |
if $Debug > 1 |