File Coverage

blib/lib/LINE/Notify/Simple.pm

Criterion	Covered	Total	%
statement	57	67	85.0
branch	4	14	28.5
condition			n/a
subroutine	14	14	100.0
pod	2	2	100.0
total	77	97	79.3

package LINE::Notify::Simple;

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::Request::Common;
use LINE::Notify::Simple::Response;

__PACKAGE__->mk_accessors(qw(access_token));

our $LINE_NOTIFY_URL    = 'https://notify-api.line.me/api/notify';
our $VERSION            = '1.02';

sub notify {

	my($self, $message) = @_;

	my $data = { message => $message };
	return $self->notify_detail($data);
}

sub notify_detail {

	my($self, $data) = @_;

	my %headers = (
			'Authorization' => sprintf('Bearer %s', $self->access_token)
		);

	# drop utf8 flag
	$self->_drop_utf8_flag_hashref($data);

	if (exists $data->{imageFile}) {
		my $image_file = ref($data->{imageFile}) eq "ARRAY" ? $data->{imageFile}->[0] : $data->{imageFile};
		if (!-e $image_file) {
			die "$image_file is not exists.";
		}
		$data->{imageFile} = [$image_file];
		$headers{'Content-type'} = "form-data";
	} else {
		$headers{'Content-type'} = "application/x-www-form-urlencoded";
	}

	my $ua  = LWP::UserAgent->new;
	my $req = POST $LINE_NOTIFY_URL, %headers, Content => [%{$data}];
	my $res = $ua->request($req);

	my $rate_limit_headers = {};
	my @names = $res->header_field_names;
	foreach my $name (@names) {
		if ($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 => $rate_limit_headers, status => $ref->{status}, message => $ref->{message}, status_line => $res->status_line });
}

sub _drop_utf8_flag_hashref {

	my($self, $data) = @_;

	foreach my $key (keys %{$data}) {
		my $val = $data->{$key};
		if (ref($val)) {
			next;
		}
		if (utf8::is_utf8($val)) {
			my $enc   = guess_encoding($val);
			my $guess = ref($enc) ? $enc->name : "UTF-8";
			$data->{$key} = encode($guess, $val);
		}
	}
}

1;

__END__