blob: 4165f466df147c3ebaa4e153416675d52bb0f6e6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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";
|
