diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung/Section.pm')
-rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung/Section.pm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung/Section.pm b/lib/Travel/Status/DE/DBWagenreihung/Section.pm deleted file mode 100644 index 5bbf1c9..0000000 --- a/lib/Travel/Status/DE/DBWagenreihung/Section.pm +++ /dev/null @@ -1,34 +0,0 @@ -package Travel::Status::DE::DBWagenreihung::Section; - -use strict; -use warnings; -use 5.020; -use utf8; - -use parent 'Class::Accessor'; - -our $VERSION = '0.14'; - -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; |