File Coverage

blib/lib/Net/Amazon/S3/Vendor/Amazon.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Net::Amazon::S3::Vendor::Amazon;
2             $Net::Amazon::S3::Vendor::Amazon::VERSION = '0.98';
3 96     96   795 use Moose 0.85;
  96         2454  
  96         805  
4              
5             # ABSTRACT: Amazon AWS specific behaviour
6              
7             extends 'Net::Amazon::S3::Vendor';
8              
9 96     96   677930 use Net::Amazon::S3::Signature::V4;
  96         277  
  96         12932  
10              
11             has '+host' => (
12             default => 's3.amazonaws.com',
13             );
14              
15             has '+authorization_method' => (
16             default => sub { 'Net::Amazon::S3::Signature::V4' },
17             );
18              
19             sub guess_bucket_region {
20 1     1 1 6 my ($self, $bucket) = @_;
21              
22 1         6 $bucket->_head_region;
23             }
24              
25             1;
26              
27             __END__
28              
29             =pod
30              
31             =encoding UTF-8
32              
33             =head1 NAME
34              
35             Net::Amazon::S3::Vendor::Amazon - Amazon AWS specific behaviour
36              
37             =head1 VERSION
38              
39             version 0.98
40              
41             =head1 SYNOPSIS
42              
43             my $s3 = Net::Amazon::S3->new (
44             vendor => Net::Amazon::S3::Vendor::Amazon->new,
45             ...
46             );
47              
48             =head1 DESCRIPTION
49              
50             Amazon AWS vendor specification.
51              
52             Supports all L<< Net::Amazon::S3::Vendor >> constructor parameters although
53             usually there is no reason to change it :-)
54              
55             Guess bucket region implementation uses bucket's HEAD region request.
56              
57             =head1 AUTHOR
58              
59             Branislav Zahradník <barney@cpan.org>
60              
61             =head1 COPYRIGHT AND LICENSE
62              
63             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
64              
65             This is free software; you can redistribute it and/or modify it under
66             the same terms as the Perl 5 programming language system itself.
67              
68             =cut