| blib/lib/Acme/24.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 14 | 35.7 |
| line | true | false | branch |
|---|---|---|---|
| 63 | 1 | 0 | if ($page =~ m[ ([^<]+) ]) |
| 69 | 0 | 1 | if (eval 'use HTML::Entities') |
| 93 | 2 | 0 | if (exists $result{'item'} and UNIVERSAL::isa($result{'item'}, 'ARRAY')) |
| 96 | 0 | 30 | if exists $seen{$$fact{'title'}} |
| 104 | 1 | 0 | if (@facts and scalar @facts > 24) |
| 117 | 0 | 0 | unless $new_facts |
| 118 | 0 | 0 | unless open my $fh, '>>' . $file |