File Coverage

blib/lib/Plack/Middleware/CookieMonster.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	47	50	94.0

package Plack::Middleware::CookieMonster;
use strict;
use warnings;

our $VERSION = '0.03';
$VERSION = eval $VERSION;

use parent qw/ Plack::Middleware /;

use Plack::Util::Accessor qw( cookie_names path );
use Plack::Request;


sub call {
    my ( $self, $env ) = @_;

    my $res = $self->app->( $env );

    if ( $env->{ 'plack.stacktrace.html' } && $res->[ 0 ] == 500 ) {
        my @cookies = $self->_get_cookie_names( $env );
        my $path = '';
        if ( defined $self->path ) {
            $path = sprintf 'path=%s; ', $self->path;
        }
        my $fmt = sprintf '%%s=deleted; %sExpires=Sat, 01-May-1971 04:30:01 GMT', $path;
        foreach my $cookie ( @cookies ) {
            push @{ $res->[ 1 ] }, 'Set-Cookie', sprintf $fmt, $cookie;
        }
    }

    return $res;
}

sub _get_cookie_names {
    my ( $self, $env ) = @_;

    my $sent = Plack::Request->new( $env )->cookies;

    if ( my $cookie_names = $self->cookie_names ) {
        return grep { $sent->{ $_ } } @$cookie_names;
    }
    else {
        return keys %$sent;
    }
}

1;

__END__