le;
use strict;
use warnings;
use utf8;
use feature qw(say);
use parent qw(Class::Accessor);
use JSON;
use Encode;
use Encode::Guess qw(euc-jp shiftjis 7bit-jis);
use LWP::UserAgent;
use HTTP::Reques
name =~ /^X\-.*/) {
$rate_limit_headers->{lc($name)} = $res->header($name);
}
}
my $ref = JSON->new->decode($res->content);
return LINE::Notify::Simple::Response->new({ rate_limit_headers =>