diff options
Diffstat (limited to 'lib/WebService/TFL/TubeStatus')
-rw-r--r-- | lib/WebService/TFL/TubeStatus/Response.pm | 25 | ||||
-rw-r--r-- | lib/WebService/TFL/TubeStatus/Response/Line.pm | 23 | ||||
-rw-r--r-- | lib/WebService/TFL/TubeStatus/Response/LineStatus.pm | 22 | ||||
-rw-r--r-- | lib/WebService/TFL/TubeStatus/Types.pm | 11 |
4 files changed, 27 insertions, 54 deletions
diff --git a/lib/WebService/TFL/TubeStatus/Response.pm b/lib/WebService/TFL/TubeStatus/Response.pm index 191abe7..4fe6524 100644 --- a/lib/WebService/TFL/TubeStatus/Response.pm +++ b/lib/WebService/TFL/TubeStatus/Response.pm @@ -1,30 +1,25 @@ package WebService::TFL::TubeStatus::Response; use Moo; -use WebService::TFL::TubeStatus::Types -all; use WebService::TFL::TubeStatus::Response::Line; use Types::Standard -all; use namespace::autoclean; has lines => ( is => 'ro', - isa => ArrayRef[LineT], + isa => ArrayRef[InstanceOf['WebService::TFL::TubeStatus::Response::Line']], required => 1, ); -sub new_from_xml { - my ($class,$doc,$xpath) = @_; +sub new_from_response { + my ($class,$response_data) = @_; - my @lines; - - for my $ls ($xpath->findnodes(q{/ws:ArrayOfLineStatus/ws:LineStatus},$doc)) { - my ($line)=$xpath->findnodes(q{ws:Line},$ls); - - my $line_object = WebService::TFL::TubeStatus::Response::Line->new_from_xml($line,$ls,$xpath); - - push @lines,$line_object; - } - - return $class->new({lines=>\@lines}); + return $class->new({ + lines=> [ + map { WebService::TFL::TubeStatus::Response::Line->new_from_response($_) } + grep { $_->{'$type'} =~ /\bLine\b/ } + $response_data->@* + ], + }); } 1; diff --git a/lib/WebService/TFL/TubeStatus/Response/Line.pm b/lib/WebService/TFL/TubeStatus/Response/Line.pm index 9779443..e8163a9 100644 --- a/lib/WebService/TFL/TubeStatus/Response/Line.pm +++ b/lib/WebService/TFL/TubeStatus/Response/Line.pm @@ -1,13 +1,12 @@ package WebService::TFL::TubeStatus::Response::Line; use Moo; use Types::Standard -all; -use WebService::TFL::TubeStatus::Types -all; use WebService::TFL::TubeStatus::Response::LineStatus; use namespace::autoclean; has id => ( is => 'ro', - isa => Num, + isa => Str, required => 1, ); @@ -19,20 +18,20 @@ has name => ( has status => ( is => 'ro', - isa => LineStatusT, + isa => InstanceOf['WebService::TFL::TubeStatus::Response::LineStatus'], required => 1, ); -sub new_from_xml { - my ($class,$line,$status,$xpath) = @_; - - my %init_arg; - - $init_arg{id} = $line->findvalue(q{@ID}); - $init_arg{name} = $line->findvalue(q{@Name}); - $init_arg{status} = WebService::TFL::TubeStatus::Response::LineStatus->new_from_xml($status,$xpath); +sub new_from_response { + my ($class,$response_data) = @_; - return $class->new(\%init_arg); + return $class->new({ + id => $response_data->{id}, + name => $response_data->{name}, + status => WebService::TFL::TubeStatus::Response::LineStatus->new_from_response( + $response_data->{lineStatuses}[0], + ), + }); } 1; diff --git a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm index 6caa7d6..87eb52f 100644 --- a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm +++ b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm @@ -3,31 +3,21 @@ use Moo; use Types::Standard -all; use namespace::autoclean; -has is_active => ( +has [qw(statusSeverity statusSeverityDescription)] => ( is => 'ro', - isa => Bool, + isa => Str, required => 1, ); -has [qw(code class description details)] => ( +has reason => ( is => 'ro', isa => Str, - required => 1, ); -sub new_from_xml { - my ($class,$ls,$xpath) = @_; - - my %init_arg; - - my ($status) = $xpath->findnodes(q{ws:Status},$ls); - $init_arg{code} = $status->findvalue(q{@ID}); - $init_arg{is_active} = $status->findvalue(q{@IsActive}) eq 'true'; - $init_arg{class} = $status->findvalue(q{@CssClass}); - $init_arg{description} = $status->findvalue(q{@Description}); - $init_arg{details} = $ls->findvalue(q{@StatusDetails}); +sub new_from_response { + my ($class,$response_data) = @_; - return $class->new(\%init_arg); + return $class->new($response_data); } 1; diff --git a/lib/WebService/TFL/TubeStatus/Types.pm b/lib/WebService/TFL/TubeStatus/Types.pm deleted file mode 100644 index d1cb141..0000000 --- a/lib/WebService/TFL/TubeStatus/Types.pm +++ /dev/null @@ -1,11 +0,0 @@ -package WebService::TFL::TubeStatus::Types; -use strict; -use warnings; -use Type::Library -base, -declare => qw(LineT LineStatusT); -use Type::Utils -all; -use namespace::autoclean; - -class_type LineT, { class => 'WebService::TFL::TubeStatus::Response::Line' }; -class_type LineStatusT, { class => 'WebService::TFL::TubeStatus::Response::LineStatus' }; - -1; |