File Coverage

blib/lib/LINE/Bot/API/Response/Common.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 4 0.0
total 25 29 86.2


line stmt bran cond sub pod time code
1             package LINE::Bot::API::Response::Common;
2 47     47   1547 use strict;
  47         98  
  47         1329  
3 47     47   230 use warnings;
  47         111  
  47         1125  
4              
5 47     47   20236 use LINE::Bot::API::Response::Error;
  47         125  
  47         6465  
6              
7             sub new {
8 89     89 0 478 my($class, %args) = @_;
9 89         357 my $self = bless { %args }, $class;
10 89 100       392 bless $self, 'LINE::Bot::API::Response::Error' unless $self->is_success;
11 89         461 $self;
12             }
13              
14 177     177 0 6616 sub is_success { $_[0]->{http_status} == 200 }
15 88     88 0 414 sub http_status { $_[0]->{http_status} }
16 1     1 0 8 sub x_line_request_id { $_[0]->{http_headers}->header('X-Line-Request-Id') }
17              
18             1;