File Coverage

blib/lib/Protect/Unwind.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	21	23	91.3

package Protect::Unwind;

use strict;

use Guard;

our $VERSION = '0.300';

use base 'Exporter';
our @EXPORT = qw(protect unwind);


sub protect (&;@) {
  my ($protected, $unwinder) = @_;

  scope_guard {
    $unwinder->();
  };

  return $protected->();
}

sub unwind (&) {
  my ($unwinder) = @_;

  return $unwinder;
}

1;



__END__