File Coverage

blib/lib/Filter/Cleanup.pm

Criterion	Covered	Total	%
statement	28	35	80.0
branch	2	4	50.0
condition	1	2	50.0
subroutine	9	9	100.0
pod	0	1	0.0
total	40	51	78.4

package Filter::Cleanup;
# ABSTRACT: Execute cleanup statements when scope closes, regardless of errors
$Filter::Cleanup::VERSION = '0.03';

use 5.012;
use strict;
use warnings;
use Keyword::Declare;

our $CLEANUP;

sub import {
  keyword cleanup (Block $cl, /\s*;\s/? $br) :then(Statement* $st='1') {
    qq{
      local \$Filter::Cleanup::CLEANUP = Filter::Cleanup->new(sub $cl);
      $st
    };
  }
}

sub new {
  my ($class, $code) = @_;
  bless $code, $class;
}

sub DESTROY {
  my $self = shift;
  if (defined $self) {
    $self->();
  }
}

1;

__END__