File Coverage

blib/lib/Gears/X/HTTP.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             package Gears::X::HTTP;
2             $Gears::X::HTTP::VERSION = '0.101';
3 1     1   821 use v5.40;
  1         5  
4 1     1   7 use Mooish::Base -standard;
  1         2  
  1         11  
5              
6             extends 'Gears::X';
7              
8             has param 'code' => (
9             isa => IntRange [400, 500],
10             );
11              
12 1         2 sub _raise_exception ($self, $code, $message)
  1         3  
13 1     1   2 {
  1         2  
  1         2  
14 1         43 $self->new(code => $code, message => $message)->raise;
15             }
16              
17 2         4 sub raise ($self, @args)
18 2     2 1 3904 {
  2         5  
  2         3  
19 2 100       12 $self->_raise_exception(@args)
20             if @args != 0;
21              
22 1         9 die $self;
23             }
24              
25             sub _build_message ($self)
26 1     1   3 {
  1         13  
  1         3  
27 1         11 return $self->code . ' - ' . $self->message;
28             }
29              
30             __END__