| blib/lib/Story/Interact/State.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 12 | 8.3 |
| line | true | false | branch |
|---|---|---|---|
| 67 | 0 | 10 | if defined $self->character->{$code} |
| 82 | 0 | 0 | unless my $key = $ENV{'PERL_STORY_INTERACT_KEY'} |
| 94 | 0 | 0 | if (substr($data, 0, 7) eq "CRYPTX:") |
| 95 | 0 | 0 | unless my $key = $ENV{'PERL_STORY_INTERACT_KEY'} |
| 103 | 0 | 0 | if $ENV{'PERL_STORY_INTERACT_FORCE_ENCRYPTED'} |
| 124 | 0 | 0 | if (my $unzipped = Compress::Bzip2::memBunzip($decrypted)) |