File Coverage

blib/lib/Net/OpenID/Connect/IDToken/Exception.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 4 0.0
total 21 29 72.4


line stmt bran cond sub pod time code
1             package Net::OpenID::Connect::IDToken::Exception;
2 4     4   23 use strict;
  4         7  
  4         125  
3 4     4   22 use warnings;
  4         8  
  4         195  
4              
5             use overload (
6 4         34 q|""| => \&to_string,
7 4     4   23 );
  4         6  
8              
9 4     4   250 use Carp qw//;
  4         6  
  4         631  
10              
11              
12             sub throw {
13 5     5 0 19 my ($class, %args) = @_;
14 5         117 Carp::croak bless \%args, $class;
15             }
16              
17 5     5 0 212 sub code { $_[0]->{code} }
18 0     0 0   sub message { $_[0]->{message} }
19              
20             sub to_string {
21 0     0 0   sprintf("<%s>: %s", $_[0]->code, $_[0]->message);
22             }
23              
24             1;