File Coverage

blib/lib/AnyPAN/RetryPolicy.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package AnyPAN::RetryPolicy;
2 2     2   840 use strict;
  2         5  
  2         57  
3 2     2   9 use warnings;
  2         4  
  2         67  
4              
5 2     2   11 use Class::Accessor::Lite new => 1;
  2         5  
  2         18  
6              
7 0     0 0   sub apply { require Carp; Carp::croak('this is abstract method') }
  0            
8              
9             sub apply_and_doit {
10 0     0 0   my $self = shift;
11 0           my $code = shift;
12 0           return $self->apply($code)->();
13             }
14              
15             1;
16             __END__