From b7c29656a2b8fc4f22695c30057c2ad888dab7f9 Mon Sep 17 00:00:00 2001 From: Daniel Friesel 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(-) (limited to 'lib') 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