From 47d24b4cbea6d8364d0718e31cfd2fb92187b7ea Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 27 May 2013 17:01:20 +0100
Subject: factored TFL client

---
 lib/WebService/TFL/Bus.pm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 lib/WebService/TFL/Bus.pm

(limited to 'lib/WebService/TFL/Bus.pm')

diff --git a/lib/WebService/TFL/Bus.pm b/lib/WebService/TFL/Bus.pm
new file mode 100644
index 0000000..60ec5c9
--- /dev/null
+++ b/lib/WebService/TFL/Bus.pm
@@ -0,0 +1,46 @@
+package WebService::TFL::Bus;
+use Moose;
+use Moose::Util::TypeConstraints;
+use MooseX::Types::URI 'Uri';
+use WebService::TFL::Bus::Response;
+use namespace::autoclean;
+
+has user_agent => (
+    isa => duck_type(['get']),
+    is => 'ro',
+    lazy_build => 1,
+);
+sub _build_user_agent {
+    require LWP::UserAgent;
+    my $ua = LWP::UserAgent->new();
+    $ua->env_proxy;
+    return $ua;
+}
+
+has uri => (
+    isa => Uri,
+    is => 'ro',
+    coerce => 1,
+    default => 'http://countdown.api.tfl.gov.uk/interfaces/ura/instant_V1',
+);
+
+sub request {
+    my ($self,$request) = @_;
+
+    my $http_response = $self->user_agent->get(
+        $request->request_uri($self->uri)
+    );
+    if ($http_response->is_success) {
+        my $json = $http_response->content;
+
+        return WebService::TFL::Bus::Response->new_from_json(
+            $request->ReturnList,
+            $json
+        );
+    }
+    else {
+        die $http_response->status_line;
+    }
+}
+
+1;
-- 
cgit v1.2.3