| blib/lib/Story/Interact/PageSource.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 6 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 45 | unless $code |
| 34 | 1 | 44 | if (my $prelude = $self->prelude_code) |
| 39 | 0 | 45 | unless eval "package Story::Interact::Syntax; use strict; use warnings; no warnings qw( numeric uninitialized ); $code; 1" |