diff options
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 43 |
1 files changed, 23 insertions, 20 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index 8096452..aa3cd8f 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -5,7 +5,7 @@ use warnings; use 5.020; use utf8; -our $VERSION = '0.12'; +use parent 'Class::Accessor'; use Carp qw(cluck confess); use JSON; @@ -14,6 +14,11 @@ use LWP::UserAgent; use Travel::Status::DE::DBWagenreihung::Section; use Travel::Status::DE::DBWagenreihung::Wagon; +our $VERSION = '0.12'; + +Travel::Status::DE::DBWagenreihung->mk_ro_accessors( + qw(platform station train_no train_type)); + my %is_redesign = ( "02" => 1, "03" => 1, @@ -175,6 +180,23 @@ sub get_wagonorder { $self->{data} = $json->{data}; $self->{meta} = $json->{meta}; + + return $self->parse_wagonorder; +} + +sub parse_wagonorder { + my ($self) = @_; + + $self->{platform} = $self->{data}{istformation}{halt}{gleisbezeichnung}; + + $self->{station} = { + ds100 => $self->{data}{istformation}{halt}{rl100}, + eva => $self->{data}{istformation}{halt}{evanummer}, + name => $self->{data}{istformation}{halt}{bahnhofsname}, + }; + + $self->{train_type} = $self->{data}{istformation}{zuggattung}; + $self->{train_no} = $self->{data}{istformation}{zugnummer}; } sub errstr { @@ -194,7 +216,6 @@ sub TO_JSON { $self->train_descriptions; $self->sections; $self->wagons; - $self->{platform} = $self->platform; my %copy = %{$self}; @@ -286,12 +307,6 @@ sub destinations { return @destinations; } -sub platform { - my ($self) = @_; - - return $self->{data}{istformation}{halt}{gleisbezeichnung}; -} - sub sections { my ($self) = @_; @@ -337,12 +352,6 @@ sub station_uic { return $self->{data}{istformation}{halt}{evanummer}; } -sub train_type { - my ($self) = @_; - - return $self->{data}{istformation}{zuggattung}; -} - sub train_numbers { my ($self) = @_; @@ -363,12 +372,6 @@ sub train_numbers { return @numbers; } -sub train_no { - my ($self) = @_; - - return $self->{data}{istformation}{zugnummer}; -} - sub wagongroup_powertype { my ( $self, @wagons ) = @_; |