| blib/lib/Pegex/Input.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 20 | 55.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 19 | unless $self->{'_is_open'} |
| 18 | 0 | 19 | if $self->{'_is_eof'} |
| 30 | 0 | 19 | if $self->{'_is_open'} or $self->{'_is_close'} |
| 32 | 0 | 19 | if (my $ref = $self->{'stringref'}) { } |
| 0 | 19 | elsif (my $handle = $self->{'handle'}) { } | |
| 1 | 18 | elsif (my $path = $self->{'file'}) { } | |
| 18 | 0 | elsif (exists $self->{'string'}) { } | |
| 39 | 0 | 1 | unless CORE::open my $handle, '<', $path |
| 56 | 0 | 19 | if $self->{'_is_close'} |
| 57 | 0 | 19 | if $self->{'handle'} |