File Coverage

blib/lib/WebService/Hydra/Exception/FeatureUnavailable.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition 0 4 0.0
subroutine 4 5 80.0
pod 0 1 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1             package WebService::Hydra::Exception::FeatureUnavailable;
2 5     5   263562 use strict;
  5         14  
  5         269  
3 5     5   32 use warnings;
  5         10  
  5         304  
4 5     5   865 use Object::Pad;
  5         14141  
  5         53  
5              
6             our $VERSION = '0.005'; ## VERSION
7              
8 1     1   843 class WebService::Hydra::Exception::FeatureUnavailable :isa(WebService::Hydra::Exception) {
  1         24  
  1         167  
9              
10             sub BUILDARGS {
11 0     0 0 0 my ($class, %args) = @_;
12              
13 0   0     0 $args{message} //= 'The feature is currently unavailable';
14 0   0     0 $args{category} //= 'client';
15              
16 0         0 return %args;
17             }
18             }
19              
20             1;