| blib/lib/CGI/SecureState.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 26 | 67 | 38.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 102 | 0 | 3 | 0 | not defined $cgi->param('.id') and $cgi->request_method eq 'POST' |
| 245 | 0 | 0 | 0 | $CGI::SecureState::NASTY_WARNINGS and not defined $isforgetful |
| 277 | 0 | 0 | 0 | $CGI::SecureState::AVOID_SYMLINKS and -l $_ |
| 553 | 0 | 21 | 0 | $CGI::SecureState::AVOID_SYMLINKS and -l $statefile |
| 0 | 21 | 0 | $CGI::SecureState::USE_FLOCK and not flock(STATEFILE, 2) | |
| 10 | 0 | 0 | $param ne 'Saved-Values' and @data | |
| 10 | 5 | 0 | not $isforgetful and exists $$memory{$param} || defined $self->param($param) |
| line | l | !l | condition |
|---|---|---|---|
| 77 | 0 | 3 | $args{'-errorSub'} || $args{'-errorsub'} || undef |
| 94 | 0 | 3 | $args{'-longTerm'} || $args{'-longterm'} || [] |
| 98 | 0 | 1 | $args{'-shortTerm'} || $args{'-shortterm'} || [] |
| 114 | 3 | 0 | $args{'-stateDir'} || $args{'-statedir'} || '.' |
| 263 | 0 | 0 | $volume || '' |
| 265 | 0 | 0 | $args{'-age'} ||= 0.0416666666666667 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 39 | 0 | 0 | 3 | /MacOS/i or /V[MO]S/i |
| 0 | 0 | 3 | /MacOS/i or /V[MO]S/i or /MSWin32/i | |
| 94 | 0 | 3 | 0 | $args{'-memory'} ||= $args{'-longTerm'} || $args{'-longterm'} || [] |
| 98 | 2 | 1 | 0 | $args{'-temp'} ||= $args{'-shortTerm'} || $args{'-shortterm'} || [] |
| 107 | 0 | 3 | 0 | $cgi->param('.id') || sha1_hex($args{'-key'} || generate_id()) |
| 111 | 3 | 0 | 0 | 'Crypt::Blowfish'->new($key) || errormsg($cgi, 'invalid state file') |
| 130 | 0 | 1 | 2 | $newmemory || !$$cgi{'.isforgetful'} |
| 347 | 0 | 0 | 2 | $_ eq '.id' or substr($_, 0, 4) eq '.tmp' |
| 553 | 0 | 0 | 5 | exists $$memory{$param} || defined $self->param($param) |
| 6 | 0 | 21 | $_ eq '.id' or substr($_, 0, 4) eq '.tmp' |
| line | l&&r | l&&!r | !l&&r | !l&&!r | condition |
|---|---|---|---|---|---|
| 553 | 14 | 8 | 0 | 13 | $isforgetful xor exists $$memory{$_} |