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 0.028;
2             our $AUTHORITY = 'cpan:STEVAN';
3              
4 1     1   715 use Moo::Role;
  1         3  
  1         12  
5              
6             with(
7             'HTTP::Throwable',
8             'HTTP::Throwable::Role::BoringText',
9             );
10              
11 2     2 0 84 sub default_status_code { 403 }
12 2     2 0 7442 sub default_reason { 'Forbidden' }
13              
14 1     1   419 no Moo::Role; 1;
  1         2  
  1         7  
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.028
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 PERL VERSION
39              
40             This library should run on perls released even a long time ago. It should work
41             on any version of perl released in the last five years.
42              
43             Although it may work on older versions of perl, no guarantee is made that the
44             minimum required version will not be increased. The version may be increased
45             for any reason, and there is no promise that patches will be accepted to lower
46             the minimum required perl.
47              
48             =head1 AUTHORS
49              
50             =over 4
51              
52             =item *
53              
54             Stevan Little
55              
56             =item *
57              
58             Ricardo Signes
59              
60             =back
61              
62             =head1 COPYRIGHT AND LICENSE
63              
64             This software is copyright (c) 2011 by Infinity Interactive, Inc.
65              
66             This is free software; you can redistribute it and/or modify it under
67             the same terms as the Perl 5 programming language system itself.
68              
69             =cut
70              
71             __END__