package WebService::TFL::TubeStatus;
use Moo;
use Type::Utils 'duck_type';
use Types::URI 'Uri';
use XML::LibXML;
use XML::LibXML::XPathContext;
use WebService::TFL::TubeStatus::Response;
use namespace::autoclean;
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://cloud.tfl.gov.uk/TrackerNet/LineStatus',
);
sub request {
my ($self) = @_;
my $doc = XML::LibXML->load_xml(location => $self->uri)
or die "Couldn't fetch tube status";
my $xpath=XML::LibXML::XPathContext->new($doc);
$xpath->registerNs('ws','http://webservices.lul.co.uk/');
return WebService::TFL::TubeStatus::Response->new_from_xml($doc,$xpath);
}
1;