File Coverage

blib/lib/JSON/WebToken/Exception.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 4 0.0
total 26 30 86.6


line stmt bran cond sub pod time code
1             package JSON::WebToken::Exception;
2              
3 8     8   46 use strict;
  8         10  
  8         263  
4 8     8   36 use warnings;
  8         9  
  8         287  
5             use overload (
6 8         59 q|""| => \&to_string,
7 8     8   36 );
  8         8  
8              
9 8     8   432 use Carp qw/croak/;
  8         11  
  8         1088  
10              
11             sub throw {
12 12     12 0 38 my ($class, %args) = @_;
13 12         31 my $self = bless \%args, $class;
14 12         302 croak $self;
15             }
16              
17 12     12 0 4464 sub code { $_[0]->{code} }
18 12     12 0 62 sub message { $_[0]->{message} }
19              
20             sub to_string {
21 12     12 0 1323 $_[0]->message;
22             }
23              
24             1;
25             __END__