File Coverage

blib/lib/Cassandra/Client/Policy/Retry.pm
Criterion Covered Total %
statement 11 16 68.7
branch n/a
condition n/a
subroutine 4 7 57.1
pod 0 3 0.0
total 15 26 57.6


line stmt bran cond sub pod time code
1             package Cassandra::Client::Policy::Retry;
2             our $AUTHORITY = 'cpan:TVDW';
3             $Cassandra::Client::Policy::Retry::VERSION = '0.13_004'; # TRIAL
4              
5 1     1   13 $Cassandra::Client::Policy::Retry::VERSION = '0.13004';use 5.010;
  1         3  
6 1     1   5 use strict;
  1         1  
  1         15  
7 1     1   4 use warnings;
  1         2  
  1         26  
8              
9 1     1   4 use Exporter 'import';
  1         3  
  1         84  
10             our @EXPORT_OK= (qw/try_next_host retry rethrow/);
11              
12             sub try_next_host {
13 0     0 0   my $cl= shift;
14 0           return 'retry';
15             }
16              
17             sub retry {
18 0     0 0   my $cl= shift;
19 0           return 'retry';
20             }
21              
22             sub rethrow {
23 0     0 0   return 'rethrow';
24             }
25              
26             1;
27              
28             __END__