diff options
author | dakkar <dakkar@thenautilus.net> | 2013-05-27 17:01:20 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2013-05-27 17:01:20 +0100 |
commit | 47d24b4cbea6d8364d0718e31cfd2fb92187b7ea (patch) | |
tree | af6fe6c112f4dd3a87d1606db6d03b48eeeccccb /lib/WebService/TFL/Bus.pm | |
parent | include busses in html (diff) | |
download | HomePanel-47d24b4cbea6d8364d0718e31cfd2fb92187b7ea.tar.gz HomePanel-47d24b4cbea6d8364d0718e31cfd2fb92187b7ea.tar.bz2 HomePanel-47d24b4cbea6d8364d0718e31cfd2fb92187b7ea.zip |
factored TFL client
Diffstat (limited to 'lib/WebService/TFL/Bus.pm')
-rw-r--r-- | lib/WebService/TFL/Bus.pm | 46 |
1 files changed, 46 insertions, 0 deletions
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; |