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)) |