File Coverage

blib/lib/WebService/Hydra/Exception/HydraServiceUnreachable.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition 2 4 50.0
subroutine 5 5 100.0
pod 0 1 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package WebService::Hydra::Exception::HydraServiceUnreachable;
2 5     5   295335 use strict;
  5         12  
  5         223  
3 5     5   26 use warnings;
  5         11  
  5         350  
4 5     5   753 use Object::Pad;
  5         12301  
  5         39  
5              
6             our $VERSION = '0.005'; ## VERSION
7              
8 1     1   836 class WebService::Hydra::Exception::HydraServiceUnreachable :isa(WebService::Hydra::Exception) {
  1         5  
  1         151  
9              
10             sub BUILDARGS {
11 1     1 0 2802 my ($class, %args) = @_;
12              
13 1   50     11 $args{message} //= 'Hydra service is unreachable';
14 1   50     7 $args{category} //= 'hydra';
15              
16 1         12 return %args;
17             }
18             }
19              
20             1;