String::Slack でっちあげた

github.com

使い方は簡単で

say String::Slack->new("message")->bold->italics->stringify; #_*message*_

となる。

きっちりとslack.com に投げるところまで書く場合のsampleコードもつけた。

use strict;
use warnings;
use Furl;
use JSON::XS              qw/encode_json/;
use HTTP::Request::Common qw/POST/;
use String::Slack;

my $message = 'hoge';
my $url     = 'https://slack.com/api/chat.postMessage';
my $token   = 'xxxxx-XXXX-XXXX';
my $channel = 'XXXXXXX';

my $data = {
    channel => $channel,
    text    => String::Slack->new($message)->bold->italics->stringify,
    as_user => 1,
};

my $request = POST($url,
    Content_Type => 'form-data',
    Content      => [
        token => $token,
        %$data,
    ]
);

my $res = Furl->new->request($request);

こんな感じで簡単にslackに投げる文字に装飾をつけることが出きる。