From fa8720d6bdc7794deec076cca2ee22da7ad8ab7c Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 29 Jun 2011 00:14:10 +0200 Subject: Further documentation fixes --- lib/Travel/Routing/DE/VRR/Exception.pod | 2 +- lib/Travel/Routing/DE/VRR/Route.pm | 4 ++-- lib/Travel/Routing/DE/VRR/Route/Part.pm | 6 +++--- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/Travel/Routing/DE/VRR/Exception.pod b/lib/Travel/Routing/DE/VRR/Exception.pod index 3d690ec..3b008dc 100644 --- a/lib/Travel/Routing/DE/VRR/Exception.pod +++ b/lib/Travel/Routing/DE/VRR/Exception.pod @@ -4,7 +4,7 @@ Travel::Routing::DE::VRR::Exception - Travel::Routing::DE::VRR Exceptions =head1 DESCRIPTION -All Exceptions throws by Travel::Routing::DE::VRR::Exception are +All Exceptions throws by Travel::Routing::DE::VRR are Travel::Routing::DE::VRR::Exception objects created by Exception::Class(3pm). See Exception::Class::Base(3pm) for their common methods. diff --git a/lib/Travel/Routing/DE/VRR/Route.pm b/lib/Travel/Routing/DE/VRR/Route.pm index c250be7..6593a23 100644 --- a/lib/Travel/Routing/DE/VRR/Route.pm +++ b/lib/Travel/Routing/DE/VRR/Route.pm @@ -39,8 +39,8 @@ Travel::Routing::DE::VRR::Route - Single route (connection) between two points =head1 SYNOPSIS - for my $route ( $efa->routes() ) { - for my $part ( $route->parts() ) { + for my $route ( $efa->routes ) { + for my $part ( $route->parts ) { # $part is a Travel::Routing::DE::VRR::Route::Part object } } diff --git a/lib/Travel/Routing/DE/VRR/Route/Part.pm b/lib/Travel/Routing/DE/VRR/Route/Part.pm index e47a512..8f63f6e 100644 --- a/lib/Travel/Routing/DE/VRR/Route/Part.pm +++ b/lib/Travel/Routing/DE/VRR/Route/Part.pm @@ -38,10 +38,10 @@ points, without interchanges =head1 SYNOPSIS - for my $part ( $route->parts() ) { + for my $part ( $route->parts ) { - if ( $part->extra() ) { - say join( "\n", $part->extra() ); + if ( $part->extra ) { + say join( "\n", $part->extra ); } printf( -- cgit v1.2.3