File Coverage

lib/Web/ComposableRequest/Exception.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Web::ComposableRequest::Exception;
2              
3 1     1   576 use namespace::autoclean;
  1         2495  
  1         4  
4              
5 1     1   85 use Unexpected::Functions qw( has_exception );
  1         2  
  1         13  
6 1     1   620 use Unexpected::Types qw( Int );
  1         3  
  1         15  
7 1     1   4286 use Moo;
  1         9166  
  1         6  
8              
9             extends q(Unexpected);
10             with q(Unexpected::TraitFor::ErrorLeader);
11             with q(Unexpected::TraitFor::ExceptionClasses);
12              
13             my $class = __PACKAGE__;
14              
15             $class->ignore_class( 'Sub::Quote' );
16              
17             has_exception $class;
18              
19             has '+class' => default => $class;
20              
21             has 'rv' => is => 'ro', isa => Int, default => 1;
22              
23             has_exception 'BadCSRFToken' => parent => [$class],
24             error => 'CSRF verification failed: [_1]';
25              
26             has_exception 'UnknownMethod' => parents => [$class],
27             error => 'Class [_1] has no method [_2]';
28              
29             1;
30              
31             __END__