File Coverage

blib/lib/WebService/Hydra/Exception/InvalidConsentChallenge.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition 4 4 100.0
subroutine 5 6 83.3
pod 0 2 0.0
total 25 30 83.3


line stmt bran cond sub pod time code
1             package WebService::Hydra::Exception::InvalidConsentChallenge;
2 5     5   221400 use strict;
  5         9  
  5         217  
3 5     5   25 use warnings;
  5         10  
  5         300  
4 5     5   552 use Object::Pad;
  5         7864  
  5         71  
5              
6             our $VERSION = '0.005'; ## VERSION
7              
8 1     1   559 class WebService::Hydra::Exception::InvalidConsentChallenge :isa(WebService::Hydra::Exception) {
  1         22  
  1         158  
9             field $redirect_to :param :reader = undef;
10              
11 0     0 0 0 sub BUILDARGS {
  0         0  
12 7     7 0 3120 my ($class, %args) = @_;
13              
14 7   100     36 $args{message} //= 'Invalid Consent Challenge';
15 7   100     27 $args{category} //= 'client';
16              
17 7         119 return %args;
18             }
19             }
20              
21             1;