diff options
| -rwxr-xr-x | bin/efa | 6 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/VRR.pm | 12 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/VRR/Route.pm | 4 |
3 files changed, 11 insertions, 11 deletions
@@ -185,12 +185,12 @@ $efa = eval { check_for_error($@); -my @routes = $efa->routes(); +my @routes = $efa->routes; for my $i ( 0 .. $#routes ) { - for my $c ( $routes[$i]->parts() ) { + for my $c ( $routes[$i]->parts ) { - for my $extra ( $c->extra() ) { + for my $extra ( $c->extra ) { if ( not( length $ignore_info and $extra =~ /$ignore_info/i ) ) { say "# $extra"; diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm index be0d76a..8f45fa0 100644 --- a/lib/Travel/Routing/DE/VRR.pm +++ b/lib/Travel/Routing/DE/VRR.pm @@ -397,7 +397,7 @@ sub parse_initial { } if ( $colspan == 8 ) { - if ( $td->textContent() =~ m{ (?<no> \d+ ) [.] .+ Fahrt }x ) { + if ( $td->textContent =~ m{ (?<no> \d+ ) [.] .+ Fahrt }x ) { $con_no = $+{no} - 1; $con_part = 0; next; @@ -415,9 +415,9 @@ sub parse_initial { if ( defined $con_no and not $td->exists($xp_img) - and $td->textContent() !~ /^\s*$/ ) + and $td->textContent !~ /^\s*$/ ) { - push( @{ $cons->[$con_no]->[$con_part] }, $td->textContent() ); + push( @{ $cons->[$con_no]->[$con_part] }, $td->textContent ); } } @@ -530,7 +530,7 @@ sub submit { sub parse { my ($self) = @_; - my $raw_cons = $self->parse_initial(); + my $raw_cons = $self->parse_initial; for my $raw_con ( @{$raw_cons} ) { push( @{ $self->{routes} }, $self->parse_pretty($raw_con) ); @@ -559,7 +559,7 @@ sub check_ambiguous { my @possible; foreach my $val ( $select->findnodes($xp_option) ) { - push( @possible, $val->textContent() ); + push( @possible, $val->textContent ); } my $err_text = join( q{, }, @possible ); @@ -582,7 +582,7 @@ sub check_no_connections { my $err_node = $tree->findnodes($xp_err_img)->[0]; if ($err_node) { - my $text = $err_node->parentNode()->parentNode()->textContent(); + my $text = $err_node->parentNode->parentNode->textContent; Travel::Routing::DE::VRR::Exception::NoConnections->throw( error => $text, ); } diff --git a/lib/Travel/Routing/DE/VRR/Route.pm b/lib/Travel/Routing/DE/VRR/Route.pm index 6593a23..dc8ae55 100644 --- a/lib/Travel/Routing/DE/VRR/Route.pm +++ b/lib/Travel/Routing/DE/VRR/Route.pm @@ -56,7 +56,7 @@ 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() >>. +You usually want to acces it via C<< $efa->routes >>. =head1 METHODS @@ -67,7 +67,7 @@ You usually want to acces it via C<< $efa->routes() >>. 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() +=item $route->parts Returns a list of Travel::Routing::DE::VRR::Route::Part(3pm) elements describing the actual route. |