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.21';
4 13     13   224 use 5.010;
  13         48  
5 13     13   74 use strict;
  13         25  
  13         346  
6 13     13   57 use warnings;
  13         44  
  13         741  
7              
8 13     13   97 use Exporter 'import';
  13         46  
  13         2152  
9             our @EXPORT_OK= (qw/try_next_host retry rethrow/);
10              
11             sub try_next_host {
12 0     0 0   my $cl= shift;
13 0           return 'retry';
14             }
15              
16             sub retry {
17 0     0 0   my $cl= shift;
18 0           return 'retry';
19             }
20              
21             sub rethrow {
22 0     0 0   return 'rethrow';
23             }
24              
25             1;
26              
27             __END__