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