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.98';
4 96     96   68606 use MooseX::Role::Parameterized;
  96         349  
  96         1050  
5              
6 96     96   874495 use Net::Amazon::S3::HTTPRequest;
  96         299  
  96         14808  
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.98
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