File Coverage

blib/lib/Curio/Guard.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Curio::Guard;
2              
3 12     12   223235 use strictures 2;
  12         89  
  12         491  
4 12     12   3731 use namespace::clean;
  12         47447  
  12         63  
5              
6             sub new {
7 2     2 0 99 my ($class, $sub) = @_;
8              
9 2         8 my $self = bless { sub=>$sub }, $class;
10              
11 2         6 return $self;
12             }
13              
14             sub DESTROY {
15 2     2   6046 my ($self) = @_;
16              
17 2         10 my $sub = $self->{sub};
18 2 50       13 $sub->() if $sub;
19              
20 2         12 return;
21             }
22              
23             1;