File Coverage

blib/lib/Net/Amazon/S3/Request/Role/HTTP/Method.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Net::Amazon::S3::Request::Role::HTTP::Method;
2             # ABSTRACT: HTTP method role
3             $Net::Amazon::S3::Request::Role::HTTP::Method::VERSION = '0.99';
4 99     99   64736 use MooseX::Role::Parameterized;
  99         318  
  99         870  
5              
6 99     99   869452 use Net::Amazon::S3::HTTPRequest;
  99         307  
  99         14635  
7              
8             parameter method => (
9             is => 'ro',
10             isa => 'HTTPMethod',
11             required => 0,
12             );
13              
14             role {
15             my ($params) = @_;
16              
17             has _http_request_method => (
18             is => 'ro',
19             isa => 'HTTPMethod',
20             $params->method
21             ? (
22             init_arg => undef,
23             default => $params->method,
24             )
25             : (
26             init_arg => 'method',
27             required => 1
28             ),
29             );
30             };
31              
32             1;
33              
34             __END__
35              
36             =pod
37              
38             =encoding UTF-8
39              
40             =head1 NAME
41              
42             Net::Amazon::S3::Request::Role::HTTP::Method - HTTP method role
43              
44             =head1 VERSION
45              
46             version 0.99
47              
48             =head1 AUTHOR
49              
50             Branislav ZahradnĂ­k <barney@cpan.org>
51              
52             =head1 COPYRIGHT AND LICENSE
53              
54             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav ZahradnĂ­k.
55              
56             This is free software; you can redistribute it and/or modify it under
57             the same terms as the Perl 5 programming language system itself.
58              
59             =cut