blob: 3715abcb5d0dd914d8a01e69b2e06e0d61c61bbb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use warnings;
use 5.010;
use LWP::UserAgent;
use HTTP::Request::Common;
use YAML qw/LoadFile/;
use JSON;
my $content = LoadFile('t/data/test.yaml');
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";
|
