File Coverage

blib/lib/Data/Money/BaseException.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Data::Money::BaseException;
2              
3             $Data::Money::BaseException::VERSION = '0.18';
4             $Data::Money::BaseException::AUTHORITY = 'cpan:GPHAT';
5              
6             =head1 NAME
7              
8             Data::Money::BaseException - Exception handler for Data::Money.
9              
10             =head1 VERSION
11              
12             Version 0.18
13              
14             =cut
15              
16 8     8   81256 use 5.006;
  8         37  
17 8     8   51 use Data::Dumper;
  8         27  
  8         469  
18              
19 8     8   51 use Moo::Role;
  8         24  
  8         79  
20 8     8   3274 use namespace::clean;
  8         39  
  8         104  
21             requires 'error';
22             with 'Throwable';
23              
24 8     8   3090 use overload q{""} => 'as_string', fallback => 1;
  8         71  
  8         85  
25              
26             sub as_string {
27 4     4 0 117 my ($self) = @_;
28              
29 4         40 return $self->error;
30             }
31              
32             =head1 DESCRIPTION
33              
34             B
35              
36             =head1 AUTHOR
37              
38             Cory G Watson, C<< >>
39              
40             Currently maintained by Mohammad S Anwar (MANWAR) C<< >>
41              
42             =head1 REPOSITORY
43              
44             L
45              
46             =head1 LICENSE AND COPYRIGHT
47              
48             Copyright 2010 Cory Watson
49              
50             This program is free software; you can redistribute it and/or modify it under the
51             terms of either: the GNU General Public License as published by the Free Software
52             Foundation; or the Artistic License.
53              
54             See L for more information.
55              
56             =cut
57              
58             1; # End of Data::Money::BaseException