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   378 use namespace::autoclean;
  1         968  
  1         2  
4              
5 1     1   78 use Unexpected::Functions qw( has_exception );
  1         1  
  1         9  
6 1     1   255 use Unexpected::Types qw( Int );
  1         1  
  1         5  
7 1     1   816 use Moo;
  1         6325  
  1         4  
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             1;
24              
25             __END__