File Coverage

blib/lib/Travel/Status/DE/EFA/Line.pm

Criterion	Covered	Total	%
statement	14	19	73.6
branch			n/a
condition	0	2	0.0
subroutine	5	7	71.4
pod	3	3	100.0
total	22	31	70.9

package Travel::Status::DE::EFA::Line;

use strict;
use warnings;
use 5.010;

use parent 'Class::Accessor';

our $VERSION = '1.21';

Travel::Status::DE::EFA::Line->mk_ro_accessors(
	qw(direction mot name operator route type valid));

my @mot_mapping = qw{
  zug s-bahn u-bahn stadtbahn tram stadtbus regionalbus
  schnellbus seilbahn schiff ast sonstige
};

sub new {
	my ( $obj, %conf ) = @_;

	my $ref = \%conf;

	return bless( $ref, $obj );
}

sub mot_name {
	my ($self) = @_;

	return $mot_mapping[ $self->{mot} ] // 'sonstige';
}

sub TO_JSON {
	my ($self) = @_;

	return { %{$self} };
}

1;

__END__