File Coverage

blib/lib/HTTP/Throwable/Role/Status/Forbidden.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package HTTP::Throwable::Role::Status::Forbidden;
2             our $AUTHORITY = 'cpan:STEVAN';
3             $HTTP::Throwable::Role::Status::Forbidden::VERSION = '0.027';
4 1     1   774 use Moo::Role;
  1         3  
  1         11  
5              
6             with(
7             'HTTP::Throwable',
8             'HTTP::Throwable::Role::BoringText',
9             );
10              
11 2     2 0 89 sub default_status_code { 403 }
12 2     2 0 7969 sub default_reason { 'Forbidden' }
13              
14 1     1   466 no Moo::Role; 1;
  1         3  
  1         6  
15              
16             =pod
17              
18             =encoding UTF-8
19              
20             =head1 NAME
21              
22             HTTP::Throwable::Role::Status::Forbidden - 403 Forbidden
23              
24             =head1 VERSION
25              
26             version 0.027
27              
28             =head1 DESCRIPTION
29              
30             The server understood the request, but is refusing to fulfill it.
31             Authorization will not help and the request SHOULD NOT be repeated.
32             If the request method was not HEAD and the server wishes to make
33             public why the request has not been fulfilled, it SHOULD describe
34             the reason for the refusal in the entity. If the server does not
35             wish to make this information available to the client, the status
36             code 404 (Not Found) can be used instead.
37              
38             =head1 AUTHORS
39              
40             =over 4
41              
42             =item *
43              
44             Stevan Little
45              
46             =item *
47              
48             Ricardo Signes
49              
50             =back
51              
52             =head1 COPYRIGHT AND LICENSE
53              
54             This software is copyright (c) 2011 by Infinity Interactive, Inc.
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
60              
61             __END__