File Coverage

blib/lib/WWW/TypePad/Error.pm
Criterion Covered Total %
statement 15 18 83.3
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 1 0.0
total 20 26 76.9


line stmt bran cond sub pod time code
1             package WWW::TypePad::Error;
2 1     1   6 use strict;
  1         2  
  1         40  
3              
4 1     1   6 use Any::Moose;
  1         3  
  1         11  
5              
6             sub throw {
7 0     0 0   my( $class, @rest ) = @_;
8 0           die $class->new( @rest );
9             }
10              
11             package WWW::TypePad::Error::HTTP;
12 1     1   997 use Any::Moose;
  1         2  
  1         4  
13 1     1   552 use HTTP::Status;
  1         3  
  1         700  
14             extends 'WWW::TypePad::Error';
15              
16 1     1   7 use overload q("") => sub { sprintf "%s (%d)", $_[0]->message, $_[0]->code }, fallback => 1;
  1     0   2  
  1         13  
  0            
17             has code => ( is => 'rw', isa => 'Int' );
18             has message => ( is => 'rw', isa => 'Str' );
19              
20             around BUILDARGS => sub {
21             my $orig = shift;
22             my( $class, $code, $msg ) = @_;
23             $msg ||= HTTP::Status::status_message( $code );
24             $class->$orig( code => $code, message => $msg );
25             };
26              
27             package WWW::TypePad::Error;
28              
29             1;