File Coverage

blib/lib/Loop/Sustainable/Strategy.pm
Criterion Covered Total %
statement 12 13 92.3
branch 1 2 50.0
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 19 22 86.3


line stmt bran cond sub pod time code
1             package Loop::Sustainable::Strategy;
2              
3 2     2   485 use strict;
  2         3  
  2         69  
4 2     2   10 use warnings;
  2         5  
  2         73  
5             use Class::Accessor::Lite (
6 2         16 new => 0,
7             rw => [ qw/check_strategy_interval/ ]
8 2     2   1996 );
  2         2822  
9              
10             our $VERSION = '0.01';
11              
12             sub new {
13 4     4 1 5 my $class = shift;
14 4 50       22 my $args = ref $_[0] ? $_[0] : +{ @_ };
15 4         29 bless $args => $class;
16             }
17              
18 0     0 1   sub wait_correction { 1; }
19              
20             1;
21              
22             __END__