From 13b9dcdf70eb95c74e8971122bbe5b268b81bd50 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 23 Jun 2011 16:47:12 +0200 Subject: Rename to Travel::Routing::DE::VRR --- lib/Travel/Routing/DE/VRR/Route.pm | 99 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 99 insertions(+) create mode 100644 lib/Travel/Routing/DE/VRR/Route.pm (limited to 'lib/Travel/Routing/DE/VRR/Route.pm') diff --git a/lib/Travel/Routing/DE/VRR/Route.pm b/lib/Travel/Routing/DE/VRR/Route.pm new file mode 100644 index 0000000..c250be7 --- /dev/null +++ b/lib/Travel/Routing/DE/VRR/Route.pm @@ -0,0 +1,99 @@ +package Travel::Routing::DE::VRR::Route; + +use strict; +use warnings; +use 5.010; + +use Travel::Routing::DE::VRR::Route::Part; + +our $VERSION = '1.3'; + +sub new { + my ( $obj, @parts ) = @_; + + my $ref = {}; + + for my $part (@parts) { + push( + @{ $ref->{parts} }, + Travel::Routing::DE::VRR::Route::Part->new( %{$part} ) + ); + } + + return bless( $ref, $obj ); +} + +sub parts { + my ($self) = @_; + + return @{ $self->{parts} }; +} + +1; + +__END__ + +=head1 NAME + +Travel::Routing::DE::VRR::Route - Single route (connection) between two points + +=head1 SYNOPSIS + + for my $route ( $efa->routes() ) { + for my $part ( $route->parts() ) { + # $part is a Travel::Routing::DE::VRR::Route::Part object + } + } + +=head1 VERSION + +version 1.3 + +=head1 DESCRIPTION + +Travel::Routing::DE::VRR::Route describes a single method of getting from one +point to another. It holds a bunch of Travel::Routing::DE::VRR::Route::Part(3pm) +objects describing the parts of the route in detail. Each part depends on the +previous one. + +You usually want to acces it via C<< $efa->routes() >>. + +=head1 METHODS + +=over + +=item my $route = Travel::Routing::DE::VRR::Route->new(I<@parts>) + +Creates a new Travel::Routing::DE::VRR::Route elements consisting of I, +which are Travel::Routing::DE::VRR::Route::Part elements. + +=item $route->parts() + +Returns a list of Travel::Routing::DE::VRR::Route::Part(3pm) elements describing +the actual route. + +=back + +=head1 DIAGNOSTICS + +None. + +=head1 DEPENDENCIES + +None. + +=head1 BUGS AND LIMITATIONS + +None known. + +=head1 SEE ALSO + +Travel::Routing::DE::VRR(3pm), Travel::Routing::DE::VRR::Route::Part(3pm). + +=head1 AUTHOR + +Copyright (C) 2011 by Daniel Friesel Ederf@finalrewind.orgE + +=head1 LICENSE + + 0. You just DO WHAT THE FUCK YOU WANT TO. -- cgit v1.2.3