diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-06-29 12:36:50 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-06-29 12:36:50 +0200 |
| commit | 826ec4a8e61a2c3a1a9400cc93e2d4e8ae2bc448 (patch) | |
| tree | 0f478a1db358e0e3c6e1b87e9518dcf84c7c22f7 /lib/Travel/Routing/DE/VRR.pm | |
| parent | 13256020f6eef6da48573aa96f29407da760dde7 (diff) | |
Minor code style adjustment (no parens after accessors)
Diffstat (limited to 'lib/Travel/Routing/DE/VRR.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/VRR.pm | 12 |
1 files changed, 6 insertions, 6 deletions
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, ); } |