diff options
author | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-11-04 19:01:58 -0700 |
---|---|---|
committer | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-11-04 19:01:58 -0700 |
commit | 461cdb0f2bd22e34561eb3d8ea1b8ea6c0a4919b (patch) | |
tree | 396eb0300b21be4376aa970350ede5564a185719 /eg | |
parent | update gitignore (diff) | |
download | jitterbug-461cdb0f2bd22e34561eb3d8ea1b8ea6c0a4919b.tar.gz |
move the post hook example to a reasonable place
Diffstat (limited to 'eg')
-rw-r--r-- | eg/post_hook.t | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/eg/post_hook.t b/eg/post_hook.t deleted file mode 100644 index 4165f46..0000000 --- a/eg/post_hook.t +++ /dev/null @@ -1,19 +0,0 @@ -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"; |