From 461cdb0f2bd22e34561eb3d8ea1b8ea6c0a4919b Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Fri, 4 Nov 2011 19:01:58 -0700
Subject: move the post hook example to a reasonable place

---
 examples/post_hook.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 examples/post_hook.pl

(limited to 'examples')

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";
-- 
cgit v1.2.3