| lib/HTML/FormWidgets/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 26 | 23.0 |
| line | true | false | branch |
|---|---|---|---|
| 97 | 0 | 0 | $self->header->[0] ? : |
| 101 | 0 | 0 | if ++$c_no >= $c_max |
| 112 | 0 | 0 | if ($r_no == 0 and $line =~ / \A \# /mx) { } |
| 113 | 0 | 0 | if $f_no == 0 |
| 117 | 0 | 0 | $self->select < 0 ? : |
| 123 | 0 | 0 | if $f_no == $self->select |
| 137 | 0 | 0 | if $path =~ / \A $pat /msx |
| 177 | 0 | 0 | if $lines[$lno] =~ s[ \A </span> ][]msx |
| 225 | 0 | 2 | unless my $path = $self->path |
| 227 | 0 | 2 | unless $self->subtype |
| 228 | 0 | 2 | if $self->subtype eq 'html' |
| 230 | 1 | 1 | unless -f $path |
| 232 | 0 | 1 | unless my $rdr = 'IO::File'->new($path, 'r') |