File Coverage

blib/lib/Cassandra/Client/Error/Base.pm
Criterion Covered Total %
statement 11 20 55.0
branch n/a
condition n/a
subroutine 4 12 33.3
pod 0 7 0.0
total 15 39 38.4


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.21';
4 13     13   277 use 5.010;
  13         56  
5 13     13   77 use strict;
  13         28  
  13         315  
6 13     13   60 use warnings;
  13         26  
  13         1879  
7              
8 0     0 0   sub new { my $class= shift; bless { code => -1, message => "An unknown error occurred", @_ }, $class }
  0            
9 13     13   9019 use overload '""' => sub { $_[0]->to_string };
  13     0   24685  
  13         126  
  0            
10 0     0 0   sub to_string { "Error $_[0]{code}: $_[0]{message}" }
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__