File Coverage

blib/lib/LINE/Bot/API/Client.pm
Criterion Covered Total %
statement 22 23 95.6
branch 1 4 25.0
condition 1 3 33.3
subroutine 6 6 100.0
pod 0 1 0.0
total 30 37 81.0


line stmt bran cond sub pod time code
1             package LINE::Bot::API::Client;
2 47     47   333 use strict;
  47         91  
  47         1388  
3 46     46   233 use warnings;
  46         85  
  46         1159  
4              
5 46     46   231 use Carp 'croak';
  46         104  
  46         2198  
6 46     46   267 use File::Basename 'basename';
  46         106  
  46         9823  
7              
8             sub new {
9 46     46 0 216 my(undef, %args) = @_;
10 46         134 my $backend = 'Furl';
11 46 0 33     239 if ($args{http_client} && $args{http_client}{backend}) {
12 0         0 $backend = $args{http_client}{backend};
13             }
14 46         236 my $klass = join '::', __PACKAGE__, $backend;
15 46     45   2753 eval "use $klass;"; ## no critic
  45         21061  
  45         202  
  45         1138  
16 46 50       309 croak $@ if $@;
17 46         354 $klass->new(%args);
18             }
19              
20             1;