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   15 use strict;
  2         5  
  2         67  
4 2     2   10 use warnings;
  2         4  
  2         87  
5              
6             our $VERSION = '0.015'; # 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   902 use Database::Async::Backoff::Exponential;
  2         5  
  2         135  
17              
18             sub new {
19 4     4 0 22 my ($class, %args) = @_;
20 4         19 bless \%args, $class
21             }
22              
23             1;
24