| blib/lib/HTML/DTD.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 22 | 63.6 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 2 | if @_ |
| 22 | 0 | 4 | if @_ |
| 24 | 0 | 4 | unless opendir my $dh, $dir |
| 30 | 40 | 20 | if $arg eq 'HTML::DTD' or blessed $arg eq 'HTML::DTD' |
| 32 | 0 | 60 | unless $dtd |
| 34 | 0 | 60 | unless open my $fh, '<', $file |
| 40 | 40 | 20 | if $arg eq 'HTML::DTD' or blessed $arg eq 'HTML::DTD' |
| 42 | 0 | 60 | unless $dtd |
| 48 | 42 | 21 | if $arg eq 'HTML::DTD' or blessed $arg eq 'HTML::DTD' |
| 50 | 0 | 63 | unless $dtd |
| 52 | 0 | 63 | unless open my $fh, '<', $file |