File Coverage

blib/lib/HTTP/Throwable/Role/BoringText.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package HTTP::Throwable::Role::BoringText;
2             our $AUTHORITY = 'cpan:STEVAN';
3             $HTTP::Throwable::Role::BoringText::VERSION = '0.026';
4 5     5   3656 use Moo::Role;
  5         10  
  5         31  
5              
6 83     83 0 292 sub text_body { $_[0]->status_line }
7              
8 5     5   1617 no Moo::Role; 1;
  5         10  
  5         21  
9              
10             =pod
11              
12             =encoding UTF-8
13              
14             =head1 NAME
15              
16             HTTP::Throwable::Role::BoringText - provide the simplest text_body method possible
17              
18             =head1 VERSION
19              
20             version 0.026
21              
22             =head1 OVERVIEW
23              
24             This role is as simple as can be. It provides a single method, C,
25             which returns the result of calling the C method.
26              
27             This method exists so that exception classes can easily be compatible with the
28             L role to provide a plain text body when
29             converted to an HTTP message. Most of the core well-known exception types
30             consume this method.
31              
32             =head1 AUTHORS
33              
34             =over 4
35              
36             =item *
37              
38             Stevan Little
39              
40             =item *
41              
42             Ricardo Signes
43              
44             =back
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2011 by Infinity Interactive, Inc..
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut
54              
55             __END__