summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-02-27 16:38:24 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-02-27 16:38:24 +0100
commit526412033bbb5f656770d9ebd1999819adf22d7b (patch)
treeba31e6e52f52756fb25f5514465f4448dc96675e
parentb8fd2abe65a1ff299307e06d576ae3b9cc5b8af2 (diff)
rename XML specific functions to ..._xml
-rw-r--r--lib/Travel/Routing/DE/EFA.pm20
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.