inc/Pegex/Input.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 9 | 20 | 45.0 |
line | true | false | branch |
---|---|---|---|
17 | 0 | 14 | unless $$self{'_is_open'} |
18 | 0 | 14 | if $$self{'_is_eof'} |
29 | 0 | 14 | if $$self{'_is_open'} or $$self{'_is_close'} |
32 | 0 | 14 | if (my $ref = $$self{'stringref'}) { } |
0 | 14 | elsif (my $handle = $$self{'handle'}) { } | |
0 | 14 | elsif (my $path = $$self{'file'}) { } | |
14 | 0 | elsif (exists $$self{'string'}) { } | |
39 | 0 | 0 | unless CORE::open my $handle, $path |
55 | 0 | 14 | if $$self{'_is_close'} |
57 | 0 | 14 | if $$self{'handle'} |