File Coverage

blib/lib/Net/Amazon/S3/Error/Handler.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             $Net::Amazon::S3::Error::Handler::VERSION = '0.991';
2             use Moose;
3 99     99   46617  
  99         257  
  99         529  
4             # ABSTRACT: A base class for S3 response error handler
5              
6             has s3 => (
7             is => 'ro',
8             isa => 'Net::Amazon::S3',
9             required => 1,
10             );
11              
12             sub handle_error;
13              
14             1;
15              
16              
17             =pod
18              
19             =encoding UTF-8
20              
21             =head1 NAME
22              
23             Net::Amazon::S3::Error::Handler - A base class for S3 response error handler
24              
25             =head1 VERSION
26              
27             version 0.991
28              
29             =head1 CONSTRUCTOR
30              
31             =over
32              
33             =item s3
34              
35             Instance of L<< Net::Amazon::S3 >>
36              
37             =back
38              
39             =head1 METHODS
40              
41             =head2 handle_error ($response)
42              
43             =head2 handle_error ($response, $request)
44              
45             Method will receive instance of L<< Net::Amazon::S3::Response >> sub-class.
46              
47             Method should return false (or throw exception) in case of error, true otherwise.
48              
49             =head1 AUTHOR
50              
51             Branislav Zahradník <barney@cpan.org>
52              
53             =head1 COPYRIGHT AND LICENSE
54              
55             This software is copyright (c) 2022 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
56              
57             This is free software; you can redistribute it and/or modify it under
58             the same terms as the Perl 5 programming language system itself.
59              
60             =cut