blib/lib/Plack/Middleware/SignedCookies.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 19 | 22 | 86.3 |
line | true | false | branch |
---|---|---|---|
23 | 9 | 0 | if defined $orig |
27 | 19 | 2 | if s/[ \t]*([-~A-Za-z0-9]{$length})\z//o |
28 | 5 | 4 | defined $_ && /\A[ \t]*(.*[^ \t])/s ? : |
31 | 4 | 5 | if "" ne $cookie |
36 | 45 | 45 | if ($do_sign) |
37 | 7 | 38 | s/(;.*)//s ? : |
40 | 18 | 27 | if $self->secure and not $flags =~ /;[ \t]* secure [ \t]* (?![^;])/xi |
41 | 25 | 20 | if $self->httponly and not $flags =~ /;[ \t]* httponly [ \t]* (?![^;])/xi |
43 | 45 | 45 | defined $do_sign ? : |
50 | 1 | 0 | unless defined $self->httponly |
51 | 1 | 0 | unless defined $self->secret |