diff options
| -rw-r--r-- | lib/Travel/Routing/DE/VRR/Exception.pod | 2 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/VRR/Route.pm | 4 | ||||
| -rw-r--r-- | 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( |