File Coverage

blib/lib/HTTP/Throwable/Role/Generic.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 18 66.6


line stmt bran cond sub pod time code
1             package HTTP::Throwable::Role::Generic;
2             our $AUTHORITY = 'cpan:STEVAN';
3             $HTTP::Throwable::Role::Generic::VERSION = '0.027';
4 1     1   553 use Carp qw(confess);
  1         2  
  1         58  
5              
6 1     1   489 use Moo::Role;
  1         14533  
  1         4  
7              
8             with 'HTTP::Throwable';
9              
10             sub default_status_code {
11 0     0 0   confess "generic HTTP::Throwable must be given status code in constructor";
12             }
13              
14             sub default_reason {
15 0     0 0   confess "generic HTTP::Throwable must be given reason in constructor";
16             }
17              
18 1     1   393 no Moo::Role; 1;
  1         2  
  1         5  
19              
20             =pod
21              
22             =encoding UTF-8
23              
24             =head1 NAME
25              
26             HTTP::Throwable::Role::Generic - a generic built-by-hand exception
27              
28             =head1 VERSION
29              
30             version 0.027
31              
32             =head1 DESCRIPTION
33              
34             This role is used (for boring internals-related reasons) when you throw an
35             exception with no special roles mixed in.
36              
37             =head1 AUTHORS
38              
39             =over 4
40              
41             =item *
42              
43             Stevan Little
44              
45             =item *
46              
47             Ricardo Signes
48              
49             =back
50              
51             =head1 COPYRIGHT AND LICENSE
52              
53             This software is copyright (c) 2011 by Infinity Interactive, Inc.
54              
55             This is free software; you can redistribute it and/or modify it under
56             the same terms as the Perl 5 programming language system itself.
57              
58             =cut
59              
60             __END__