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   184423 use strictures 2;
  12         76  
  12         409  
4 12     12   2987 use namespace::clean;
  12         37840  
  12         58  
5              
6             sub new {
7 2     2 0 85 my ($class, $sub) = @_;
8              
9 2         8 my $self = bless { sub=>$sub }, $class;
10              
11 2         7 return $self;
12             }
13              
14             sub DESTROY {
15 2     2   5147 my ($self) = @_;
16              
17 2         9 my $sub = $self->{sub};
18 2 50       11 $sub->() if $sub;
19              
20 2         12 return;
21             }
22              
23             1;