File Coverage

blib/lib/Plack/Middleware/CookieMonster.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	41	44	93.1

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

our $VERSION = '0.02';
$VERSION = eval $VERSION;

use parent qw/ Plack::Middleware /;

use Plack::Util::Accessor qw( cookie_names );
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 );
        foreach my $cookie ( @cookies ) {
            push @{ $res->[ 1 ] }, 'Set-Cookie', sprintf '%s=deleted; Expires=Sat, 01-May-1971 04:30:01 GMT', $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__