Yet Another CPAN Grep

AnySan-Provider-Slack ( S/SH/SHOGO/AnySan-Provider-Slack-0.07.tar.gz, SHOGO, 2021; MetaCPAN )

AnySan-Provider-Slack/lib/AnySan/Provider/Slack.pm ( view source; MetaCPAN )

;
use AnySan::Receive;
use HTTP::Request::Common;
use AnyEvent::HTTP;
use AnyEvent::SlackRTM;
use JSON;
use Encode;

sub slack {
    my(%config) = @_;

    my $self = __PACKAGE__->new(
        client

= map { $_ => $req->header($_), } $req->headers->header_field_names;
    my $jd = $self->{json_driver} ||= JSON->new->utf8;
    my $r;
    $r = http_post $req->uri, $req->content, headers => \%headers