path: root/eg/post_hook.t

use strict;
use warnings;
use 5.010;
use LWP::UserAgent;
use HTTP::Request::Common;
use YAML qw/LoadFile/;
use JSON;
use File::Spec::Functions;

my $content = LoadFile(catfile(qw/t data hook_data.yml/));
my $payload = JSON::encode_json($content);

my $url = "http://localhost:5000/hook/";

my $req = POST $url, [payload => $payload];

my $ua = LWP::UserAgent->new();
my $res = $ua->request($req);
$res->is_success ? say "ok" : say "not ok";