summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/DBWagenreihung/Section.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung/Section.pm')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung/Section.pm34
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;