File Coverage

blib/lib/Plack/Middleware/Cleanup.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	28	28	100.0

use strict;
use warnings;
package Plack::Middleware::Cleanup;
{
  $Plack::Middleware::Cleanup::VERSION = '0.003';
}
# ABSTRACT: Run cleanup code after request completion

use parent 'Plack::Middleware';


sub _guard (&) {
    bless $_[0], 'Plack::Middleware::Cleanup::Guard';
}

sub call {
    my ($self, $env) = @_;
    my @queue;
    $env->{'cleanup.register'} = sub { push @queue, @_ };
    $env->{'cleanup.guard'} = _guard {
        for my $item (@queue) { $item->() }
    };
    return $self->app->($env);
}


package Plack::Middleware::Cleanup::Guard;
{
  $Plack::Middleware::Cleanup::Guard::VERSION = '0.003';
}

sub DESTROY { $_[0]->() }

1;

__END__