diff options
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 5 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung/Section.pm | 34 |
2 files changed, 37 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index b97e2bd..608702a 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -9,6 +9,7 @@ our $VERSION = '0.00'; use Carp qw(cluck confess); use JSON; use LWP::UserAgent; +use Travel::Status::DE::DBWagenreihung::Section; use Travel::Status::DE::DBWagenreihung::Wagon; sub new { @@ -92,13 +93,13 @@ sub sections { for my $section (@{$self->{data}{istformation}{halt}{allSektor}}) { my $pos = $section->{positionamgleis}; - push(@{$self->{sections}}, { + push(@{$self->{sections}}, Travel::Status::DE::DBWagenreihung::Section->new( name => $section->{sektorbezeichnung}, start_percent => $pos->{startprozent}, end_percent => $pos->{endeprozent}, start_meters => $pos->{startmeter}, end_meters => $pos->{endemeter}, - }); + )); } return @{$self->{sections} // []}; diff --git a/lib/Travel/Status/DE/DBWagenreihung/Section.pm b/lib/Travel/Status/DE/DBWagenreihung/Section.pm new file mode 100644 index 0000000..780031c --- /dev/null +++ b/lib/Travel/Status/DE/DBWagenreihung/Section.pm @@ -0,0 +1,34 @@ +package Travel::Status::DE::DBWagenreihung::Section; + +use strict; +use warnings; +use 5.020; +use utf8; + +use parent 'Class::Accessor'; + +our $VERSION = '0.00'; + +Travel::Status::DE::DBWagenreihung::Section->mk_ro_accessors( + qw(name start_percent end_percent length_percent start_meters end_meters length_meters) +); + +sub new { + my ( $obj, %opt ) = @_; + my $ref = \%opt; + + $ref->{length_meters} = $ref->{end_meters} - $ref->{start_meters}; + $ref->{length_percent} = $ref->{end_percent} - $ref->{start_percent}; + + return bless( $ref, $obj ); +} + +sub TO_JSON { + my ($self) = @_; + + my %copy = %{$self}; + + return {%copy}; +} + +1; |