| blib/lib/HTTP/Cookies/Netscape.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 24 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 1 | 2 | unless open my $fh, '<', $file |
| 19 | 0 | 2 | unless ($magic =~ /^#(?: Netscape)? HTTP Cookie File/) |
| 27 | 4 | 4 | if $line =~ /^\s*\#/ |
| 28 | 2 | 2 | if $line =~ /^\s*$/ |
| 42 | 0 | 2 | @_ == 1 ? : |
| 45 | 0 | 2 | if keys %args > 2 |
| 48 | 0 | 2 | unless open my $fh, '>', $file |
| 62 | 1 | 3 | if $discard and not $args{'ignore_discard'} |
| 63 | 2 | 1 | $expires ? : |
| 64 | 1 | 2 | if $now > $expires |
| 65 | 0 | 2 | $secure ? : |
| 66 | 0 | 2 | $domain =~ /^\./ ? : |