File Coverage

blib/lib/Travel/Routing/DE/EFA/Route.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	33	33	100.0

package Travel::Routing::DE::EFA::Route;

use strict;
use warnings;
use 5.010;

use parent 'Class::Accessor';

use Travel::Routing::DE::EFA::Route::Part;

our $VERSION = '2.21';

Travel::Routing::DE::EFA::Route->mk_ro_accessors(
	qw(duration ticket_text ticket_type fare_adult fare_child vehicle_time));

sub new {
	my ( $obj, $info, @parts ) = @_;

	my $ref = $info;

	for my $part (@parts) {
		push(
			@{ $ref->{parts} },
			Travel::Routing::DE::EFA::Route::Part->new( %{$part} )
		);
	}

	return bless( $ref, $obj );
}

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

	return @{ $self->{parts} };
}

1;

__END__