move the post hook example to a reasonable place

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/post_hook.pl b/examples/post_hook.pl
new file mode 100644
index 0000000..4165f46
--- /dev/null
+++ b/examples/post_hook.pl
@@ -0,0 +1,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";