File Coverage

blib/lib/Plagger/Plugin/Notify/Line.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

package Plagger::Plugin::Notify::Line;

use strict;
use warnings;
use 5.008_001;
use parent qw(Plagger::Plugin);
use Encode;
use Furl;

our $VERSION = '0.02';

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'publish.entry' => \¬ify_entry,
    );
}

sub initialize {
    my($self, $context) = @_;
}

sub notify_entry {
    my($self, $context, $args) = @_;

    my $endpoint =
        $self->conf->{endpoint_url}
            || 'https://notify-api.line.me/api/notify';

    my $token = $self->conf->{access_token};
    unless ($token) {
        $context->log(
            error => q|You must configure your LINE Notify's | .
                     q|personal access token as "access_token".|
        );
        return;
    }

    my $message = $self->templatize('notify_line.tt', $args);
    $message = encode_utf8($message);

    my $ua = Furl->new;

    my $res = $ua->post(
        $endpoint,
        [ 'Authorization' => 'Bearer ' . $token ],
        [ 'message'       => $message           ],
    );

    unless ($res->is_success) {
        $context->log(
            error => qq|LINE Notify failed:\n| .
                     qq|status: | . $res->status_line . qq|\n| .
                     qq|body: | . $res->content
        );
        return;
    }

    $context->log(info => qq|LINE Notify Succeed:\nbody: | . $res->content);
}

1;
__END__