File Coverage

blib/lib/Database/Async/Backoff.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Database::Async::Backoff;
2              
3 2     2   13 use strict;
  2         5  
  2         63  
4 2     2   9 use warnings;
  2         4  
  2         143  
5              
6             our $VERSION = '0.016'; # VERSION
7              
8             =head1 NAME
9              
10             Database::Async::Backoff - support for backoff algorithms in L
11              
12             =head1 DESCRIPTION
13              
14             =cut
15              
16 2     2   879 use Database::Async::Backoff::Exponential;
  2         6  
  2         132  
17              
18             sub new {
19 4     4 0 18 my ($class, %args) = @_;
20 4         16 bless \%args, $class
21             }
22              
23             1;
24