diff options
| -rw-r--r-- | lib/Net/Travel/DE/VRR.pm | 14 |
1 files 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(); |