File Coverage

blib/lib/Message/Passing/Exception.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Message::Passing::Exception;
2 7     7   11322 use Moo::Role;
  7         17  
  7         52  
3 7     7   2391 use namespace::clean -except => 'meta';
  7         22  
  7         46  
4              
5             sub as_hash {
6 4     4 1 31 return { %{ $_[0] }, class => ref($_[0]) }
  4         28  
7             }
8              
9             sub pack {
10 2     2 1 10 $_[0]->as_hash;
11             }
12              
13             1;
14              
15             =head1 NAME
16              
17             Message::Passing::Exception - Base role for Message::Passing exceptions
18              
19             =head1 METHODS
20              
21             =head2 as_hash
22              
23             =head2 pack
24              
25             Synonyms, which return a flattened (to a hash) object.
26              
27             =head1 AUTHOR, COPYRIGHT AND LICENSE
28              
29             See L<Message::Passing>.
30              
31             =cut
32