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   218062 use strictures 2;
  12         99  
  12         486  
4 12     12   3990 use namespace::clean;
  12         47706  
  12         65  
5              
6             sub new {
7 2     2 0 102 my ($class, $sub) = @_;
8              
9 2         10 my $self = bless { sub=>$sub }, $class;
10              
11 2         8 return $self;
12             }
13              
14             sub DESTROY {
15 2     2   6117 my ($self) = @_;
16              
17 2         10 my $sub = $self->{sub};
18 2 50       12 $sub->() if $sub;
19              
20 2         15 return;
21             }
22              
23             1;