| blib/lib/AnyEvent/WebArchive.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 26 | 19.2 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 0 | ref $_[0] ? : |
| 28 | 0 | 0 | if $DEBUG |
| 35 | 0 | 0 | if $DEBUG |
| 39 | 0 | 0 | if ($$headers{'Status'} == 200) { } |
| 45 | 0 | 0 | unless --$count |
| 70 | 0 | 0 | if /^\?/ or $url =~ /$_$/ |
| 72 | 0 | 0 | if $DEBUG |
| 76 | 0 | 0 | if -e $url |
| 77 | 0 | 0 | if $DEBUG |
| 80 | 0 | 0 | unless open my $fh, '>', $url |
| 96 | 3 | 0 | unless $url =~ m[^/] |
| 97 | 1 | 2 | if $url =~ m[/$] |
| 98 | 2 | 1 | unless $url =~ /\..{1,7}$/ |