diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-06-23 16:47:12 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-06-23 16:47:12 +0200 |
commit | 13b9dcdf70eb95c74e8971122bbe5b268b81bd50 (patch) | |
tree | b629e31d47d06e35427f266a5f9b33cb69c086b1 /lib/Travel/Routing/DE/VRR/Route.pm | |
parent | 2a1d17f8d50aacd9de082139e76c55ee40199a15 (diff) |
Rename to Travel::Routing::DE::VRR
Diffstat (limited to 'lib/Travel/Routing/DE/VRR/Route.pm')
-rw-r--r-- | lib/Travel/Routing/DE/VRR/Route.pm | 99 |
1 files changed, 99 insertions, 0 deletions
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<parts>, +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 E<lt>derf@finalrewind.orgE<gt> + +=head1 LICENSE + + 0. You just DO WHAT THE FUCK YOU WANT TO. |