diff options
author | Daniel Friesel <derf@finalrewind.org> | 2014-02-27 16:38:24 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2014-02-27 16:38:24 +0100 |
commit | 526412033bbb5f656770d9ebd1999819adf22d7b (patch) | |
tree | ba31e6e52f52756fb25f5514465f4448dc96675e /lib/Travel/Routing/DE/EFA.pm | |
parent | b8fd2abe65a1ff299307e06d576ae3b9cc5b8af2 (diff) |
rename XML specific functions to ..._xml
Diffstat (limited to 'lib/Travel/Routing/DE/EFA.pm')
-rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm index 9ccf2ff..6d67bd8 100644 --- a/lib/Travel/Routing/DE/EFA.pm +++ b/lib/Travel/Routing/DE/EFA.pm @@ -399,7 +399,7 @@ sub new { ); } - $ref->create_post(); + $ref->create_post; if ( not( defined $conf{submit} and $conf{submit} == 0 ) ) { $ref->submit( %{ $conf{lwp_options} } ); @@ -415,7 +415,7 @@ sub new_from_xml { bless( $self, $class ); - $self->parse(); + $self->parse_xml; return $self; } @@ -436,7 +436,7 @@ sub submit { $self->{xml_reply} = $response->decoded_content; - $self->parse(); + $self->parse_xml; return; } @@ -458,7 +458,7 @@ sub itdtime_str { $node->getAttribute('minute') ); } -sub parse_part { +sub parse_xml_part { my ( $self, $route ) = @_; my $xp_route = XML::LibXML::XPathExpression->new( @@ -580,7 +580,7 @@ sub parse_part { return; } -sub parse { +sub parse_xml { my ($self) = @_; my $tree = $self->{tree} @@ -593,7 +593,7 @@ sub parse { my $xp_odv = XML::LibXML::XPathExpression->new('//itdOdv'); for my $odv ( $tree->findnodes($xp_odv) ) { - $self->check_ambiguous($odv); + $self->check_ambiguous_xml($odv); } my $err = ( $tree->findnodes($xp_err) )[0]; @@ -603,17 +603,17 @@ sub parse { } for my $part ( $tree->findnodes($xp_element) ) { - $self->parse_part($part); + $self->parse_xml_part($part); } if ( not defined $self->{routes} or @{ $self->{routes} } == 0 ) { - Travel::Routing::DE::EFA::Exception::NoData->throw(); + Travel::Routing::DE::EFA::Exception::NoData->throw; } return 1; } -sub check_ambiguous { +sub check_ambiguous_xml { my ( $self, $tree ) = @_; my $xp_place = XML::LibXML::XPathExpression->new('./itdOdvPlace'); @@ -824,7 +824,7 @@ want it to be submitted yet, set this to B<0>. Submit the query to I<efa_url>. I<%opts> is passed on to C<< LWP::UserAgent->new >>. -=item $efa->routes() +=item $efa->routes Returns a list of Travel::Routing::DE::EFA::Route(3pm) elements. Each one contains one method of getting from start to stop. |