diff options
Diffstat (limited to 'lib/Travel/Status/DE/EFA.pm')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index c134698..00338b7 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -247,6 +247,20 @@ sub check_for_ambiguous { return; } +sub identified_data { + my ($self) = @_; + + my $xp_place + = XML::LibXML::XPathExpression->new('//itdOdv/itdOdvPlace/odvPlaceElem'); + my $xp_name + = XML::LibXML::XPathExpression->new('//itdOdv/itdOdvName/odvNameElem'); + + my $e_place = ( $self->{tree}->findnodes($xp_place) )[0]; + my $e_name = ( $self->{tree}->findnodes($xp_name) )[0]; + + return ( $e_place->textContent, $e_name->textContent ); +} + sub lines { my ($self) = @_; my @lines; |