File Coverage

blib/lib/Net/Stripe/Error.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Net::Stripe::Error;
2             $Net::Stripe::Error::VERSION = '0.40_005'; # TRIAL
3              
4 2     2   15 $Net::Stripe::Error::VERSION = '0.40005';use Moose;
  2         4  
  2         15  
5             with 'Throwable';
6 2     2   11719 use namespace::clean -except => 'meta';
  2         3  
  2         22  
7              
8             # ABSTRACT: represent an error result from interacting with Stripe
9              
10             has 'type' => (is => 'ro', isa => 'Maybe[Str]', required => 1);
11             has 'message' => (is => 'ro', isa => 'Maybe[Str]', required => 1);
12             has 'code' => (is => 'ro', isa => 'Maybe[Str]');
13             has 'param' => (is => 'ro', isa => 'Maybe[Str]');
14              
15             use overload fallback => 1,
16             '""' => sub {
17 1     1   9 my $e = shift;
18 1         3 my $msg = "Error: @{[$e->type]} - @{[$e->message]}";
  1         25  
  1         22  
19 1 50       23 $msg .= " On parameter: " . $e->param if $e->param;
20 1 50       23 $msg .= "\nCard error: " . $e->code if $e->code;
21 1         3 return $msg;
22 2     2   1018 };
  2         4  
  2         32  
23              
24             __PACKAGE__->meta->make_immutable;
25             1;
26              
27             __END__
28              
29             =pod
30              
31             =head1 NAME
32              
33             Net::Stripe::Error - represent an error result from interacting with Stripe
34              
35             =head1 VERSION
36              
37             version 0.40_005
38              
39             =head1 ATTRIBUTES
40              
41             =head2 code
42              
43             Reader: code
44              
45             Type: Maybe[Str]
46              
47             =head2 message
48              
49             Reader: message
50              
51             Type: Maybe[Str]
52              
53             This attribute is required.
54              
55             =head2 param
56              
57             Reader: param
58              
59             Type: Maybe[Str]
60              
61             =head2 previous_exception
62              
63             Reader: previous_exception
64              
65             =head2 type
66              
67             Reader: type
68              
69             Type: Maybe[Str]
70              
71             This attribute is required.
72              
73             =head1 AUTHORS
74              
75             =over 4
76              
77             =item *
78              
79             Luke Closs
80              
81             =item *
82              
83             Rusty Conover
84              
85             =back
86              
87             =head1 COPYRIGHT AND LICENSE
88              
89             This software is copyright (c) 2015 by Prime Radiant, Inc., (c) copyright 2014 Lucky Dinosaur LLC.
90              
91             This is free software; you can redistribute it and/or modify it under
92             the same terms as the Perl 5 programming language system itself.
93              
94             =cut