Yet Another CPAN Grep

WebService-Slack-IncomingWebHook ( M/MA/MASASUZU/WebService-Slack-IncomingWebHook-0.02.tar.gz, MASASUZU, 2016; MetaCPAN )

WebService-Slack-IncomingWebHook/lib/WebService/Slack/IncomingWebHook.pm ( view source; MetaCPAN )

ackage WebService::Slack::IncomingWebHook;
use 5.008001;
use strict;
use warnings;
use utf8;

use JSON;
use Furl;
use Carp ();

our $VERSION = "0.02";

sub new {
    my ($class, %args) = @_;
    Carp:

{$_} ) } qw( webhook_url channel icon_emoji icon_url username )
    } => $class;

    $self->{json} = JSON->new->utf8;
    $self->{furl} = Furl->new(agent => "$class.$VERSION");

    return $self;
}

->{furl}->post(
        $self->{webhook_url},
        ['Content-Type' => 'application/json'],
        $self->{json}->encode($post_data),
    );
    if (! $res->is_success) {
        Carp::carp('post f