File Coverage

blib/lib/Cassandra/Client/Error/Base.pm
Criterion Covered Total %
statement 11 19 57.8
branch n/a
condition n/a
subroutine 4 11 36.3
pod 0 6 0.0
total 15 36 41.6


line stmt bran cond sub pod time code
1             package Cassandra::Client::Error::Base;
2             our $AUTHORITY = 'cpan:TVDW';
3             $Cassandra::Client::Error::Base::VERSION = '0.13_006'; # TRIAL
4              
5 1     1   19 $Cassandra::Client::Error::Base::VERSION = '0.13006';use 5.010;
  1         3  
6 1     1   4 use strict;
  1         2  
  1         16  
7 1     1   4 use warnings;
  1         2  
  1         93  
8              
9 0     0 0   sub new { my $class= shift; bless { code => -1, message => "An unknown error occurred", @_ }, $class }
  0            
10 1     1   727 use overload '""' => sub { "Error $_[0]{code}: $_[0]{message}" };
  1     0   733  
  1         7  
  0            
11 0     0 0   sub code { $_[0]{code} }
12 0     0 0   sub message { $_[0]{message} }
13 0     0 0   sub is_request_error { $_[0]{request_error} }
14 0     0 0   sub do_retry { $_[0]{do_retry} }
15 0     0 0   sub is_timeout { $_[0]{is_timeout} }
16              
17             1;
18              
19             __END__