File Coverage

blib/lib/HTTP/Session2/Expired.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	3	4	75.0
total	46	47	97.8

package HTTP::Session2::Expired;
use strict;
use warnings;
use utf8;
use 5.008_001;
use Carp ();
use parent qw(HTTP::Session2::Base);

sub set    { Carp::croak("You cannot set anything to expired session") }
sub get    { Carp::croak("You cannot get anything from expired session") }
sub remove { Carp::croak("You cannot remove anything from expired session") }

sub finalize {
    my ($self) = @_;

    my @cookies;

    # Finalize session cookie
    {
        my %cookie = %{$self->session_cookie};
        my $name = delete $cookie{name};
        push @cookies, $name => +{
            %cookie,
            value => '',
            expires => '-1d',
        };
    }

    # Finalize XSRF cookie
    {
        my %cookie = %{$self->xsrf_cookie};
        my $name = delete $cookie{name};
        push @cookies, $name => +{
            %cookie,
            value => '',
            expires => '-1d',
        };
    }

    return @cookies;
}

1;