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   752 use namespace::autoclean;
  1         2230  
  1         6  
4              
5 1     1   91 use Unexpected::Functions qw( has_exception );
  1         3  
  1         14  
6 1     1   473 use Unexpected::Types qw( Int );
  1         2  
  1         9  
7 1     1   1561 use Moo;
  1         12569  
  1         11  
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__