File Coverage

blib/lib/WebService/Akeneo/HTTPError.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             package WebService::Akeneo::HTTPError;
2             $WebService::Akeneo::HTTPError::VERSION = '0.001';
3 4     4   109 use v5.38;
  4         19  
4 4     4   35 use Object::Pad;
  4         10  
  4         41  
5 4     4   711 use Carp 'croak';
  4         11  
  4         1262  
6              
7             class WebService::Akeneo::HTTPError 0.001;
8              
9             field $code :param;
10             field $message :param;
11             field $body :param;
12              
13             method throw {
14             croak sprintf("HTTP %s: %s%s", ($code//'?'), ($message//'HTTP error'), $body ? "\n$body" : '');
15             }
16              
17             1;