File Coverage

blib/lib/WebService/Slack/IncomingWebHook/Script.pm

Criterion	Covered	Total	%
statement	20	29	68.9
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	27	40	67.5

package WebService::Slack::IncomingWebHook::Script;
use 5.008001;
use strict;
use warnings;
use utf8;

use Encode qw( decode_utf8 );
use Getopt::Long qw( :config posix_default no_ignore_case bundling auto_help );
use WebService::Slack::IncomingWebHook;

=head1 DESCTIPTION

post to slack incoming web hook.

=head1 SYNOPSIS

    % post-slack --webhook_url='https://xxxxxx' --text='yahooo'

        --webhook_url   required
        --text          required
        --channel
        --username
        --icon_url
        --icon_emoji

=cut


sub run {
    my ($class, @argv) = @_;
    local @ARGV = @argv;

    GetOptions(
        \my %opt => qw(
            text=s
            webhook_url=s
            channel=s
            username=s
            icon_url=s
            icon_emoji=s
        ),
    );
    my @required_options = qw( webhook_url text );
    for my $o (@required_options) {
        Carp::croak("--$o option required") if ! exists $opt{$o};
    }

    my $webhook_url = delete $opt{webhook_url};

    # for multibyte character
    $opt{$_} = decode_utf8($opt{$_}) for keys %opt;

    WebService::Slack::IncomingWebHook->new(webhook_url => $webhook_url)->post(%opt);
}


1;