summaryrefslogtreecommitdiff
path: root/lib/WebService/TFL/Bus.pm
blob: 6352a5d11966d4c8becc6b8521e5cc7f74457efc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
package WebService::TFL::Bus; 
use Moo;
use namespace::autoclean;
use Types::URI 'Uri';
use Type::Utils -all;
use WebService::TFL::Bus::Response;
 
has user_agent => (
    isa => duck_type(['get']),
    is => 'lazy',
 
);
sub _build_user_agent {
    require LWP::UserAgent;
    my $ua = LWP::UserAgent->new();
    $ua->env_proxy;
    return $ua;
}
 
has uri => (
    isa => Uri,
    is => 'ro',
    coerce => Uri->coercion,
    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;