From b7c29656a2b8fc4f22695c30057c2ad888dab7f9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 26 May 2011 20:01:11 +0200
Subject: VRR.pm: Convert all remaining functions to methods

---
 lib/Net/Travel/DE/VRR.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/Net/Travel/DE/VRR.pm b/lib/Net/Travel/DE/VRR.pm
index fd3edc4..57b5f66 100644
--- a/lib/Net/Travel/DE/VRR.pm
+++ b/lib/Net/Travel/DE/VRR.pm
@@ -276,7 +276,10 @@ sub create_post {
 }
 
 sub parse_initial {
-	my ($tree) = @_;
+	my ($self) = @_;
+
+	my $tree = $self->{tree}
+	  = XML::LibXML->load_html( string => $self->{html_reply}, );
 
 	my $con_part = 0;
 	my $con_no;
@@ -323,7 +326,7 @@ sub parse_initial {
 }
 
 sub parse_pretty {
-	my ($con_parts) = @_;
+	my ( $self, $con_parts ) = @_;
 
 	my @elements;
 	my @next_extra;
@@ -421,14 +424,11 @@ sub submit {
 sub parse {
 	my ($self) = @_;
 
-	my $tree = XML::LibXML->load_html( string => $self->{html_reply}, );
-
-	my $raw_cons = parse_initial($tree);
+	my $raw_cons = $self->parse_initial();
 
 	for my $raw_con ( @{$raw_cons} ) {
-		push( @{ $self->{routes} }, parse_pretty($raw_con) );
+		push( @{ $self->{routes} }, $self->parse_pretty($raw_con) );
 	}
-	$self->{tree} = $tree;
 
 	$self->check_ambiguous();
 	$self->check_no_connections();
-- 
cgit v1.2.3