diff --git a/lib/Travel/Routing/DE/VRR/Exception.pod b/lib/Travel/Routing/DE/VRR/Exception.pod index 3d690ec8ec9ee64727144c2a7aad3218093b1fb2..3b008dc31a346acc1db54b722196f7702a24563e 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 c250be70a586fd5a029f110fb688cbd512efb828..6593a23b40f33b6cd3906d12721bb7c166842eb9 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 e47a512cd449728b6b71540d2e6a0eba1717209d..8f63f6eb2e824b937fc15f1887bfd91b829a011e 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(