| blib/lib/HTML/ExtractText.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 28 | 32 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 12 | unless get_args_as_hash(\@_, \my(%args), {'separator', "\n", 'ignore_not_found', 1}, [], ['separator', 'ignore_not_found']) |
| 38 | 0 | 10 | unless ref $what eq 'HASH' |
| 42 | 0 | 10 | unless defined $html |
| 46 | 3 | 7 | if (defined $obj) |
| 47 | 1 | 2 | unless blessed $obj |
| 51 | 1 | 1 | unless $obj->can($_) |
| 71 | 22 | 7 | unless $tag =~ /input|img/ |
| 73 | 3 | 4 | if $tag eq 'img' or $tag eq 'input' and ($_->attr('type') // '') eq 'image' |
| 82 | 1 | 0 | unless @results or $self->ignore_not_found |
| 85 | 9 | 12 | if (defined(my $sep = $self->separator)) { } |
| 102 | 1 | 7 | if (defined $obj) |
| 110 | 1 | 7 | if ($did_have_error) { } |
| 120 | 14 | 23 | if (@_) |
| 126 | 13 | 2 | if (@_) |
| 132 | 18 | 12 | if (@_) |
| 138 | 13 | 3 | if (@_) |