File Coverage

blib/lib/Geo/Yandex/Location.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Geo::Yandex::Location;

use vars qw ($VERSION);
$VERSION = '0.3';

use strict;
use utf8;
use XML::LibXML;

sub new {
    my ($class, $context, $featureMember) = @_;

    my $this = {
    };

    bless $this, $class;
    $this->parse($context, $featureMember);

    return $this;
}

sub parse {
    my ($this, $context, $featureMember) = @_;

    my $metadata = ${$context->findnodes('.//gml:metaDataProperty', $featureMember)}[0];
    $this->{'kind'}         = $this->get_single_value($context, './/ygeo:kind',             $metadata);
    $this->{'address'}      = $this->get_single_value($context, './/ygeo:text',             $metadata);
    $this->{'country'}      = $this->get_single_value($context, './/xal:CountryName',       $metadata);
    $this->{'locality'}     = $this->get_single_value($context, './/xal:LocalityName',      $metadata);
    $this->{'thoroughfare'} = $this->get_single_value($context, './/xal:ThoroughfareName',  $metadata);
    $this->{'premise'}      = $this->get_single_value($context, './/xal:PremiseNumber',     $metadata);

    my $bound = ${$context->findnodes('.//gml:boundedBy', $featureMember)}[0];
    $this->{'lowerCorner'}  = $this->get_single_value($context, './/gml:lowerCorner',       $bound);
    $this->{'upperCorner'}  = $this->get_single_value($context, './/gml:upperCorner',       $bound);

    my $point = ${$context->findnodes('.//gml:Point', $featureMember)}[0];
    $this->{'pos'}          = $this->get_single_value($context, './/gml:pos',               $point);

    ($this->{'longitude'}, $this->{'latitude'}) = split / /, $this->{'pos'};
}

sub get_single_value {
    my ($this, $context, $xpath, $node) = @_;

    my @children = $context->findnodes($xpath, $node);

    return @children ? $children[0]->textContent : undef;
}

sub kind {
    my $this = shift;

    return $this->{'kind'};
}

sub address {
    my $this = shift;

    return $this->{'address'};
}

sub country {
    my $this = shift;

    return $this->{'country'};
}

sub locality {
    my $this = shift;

    return $this->{'locality'};
}

sub thoroughfare {
    my $this = shift;

    return $this->{'thoroughfare'};
}

sub premise {
    my $this = shift;

    return $this->{'premise'};
}

sub lowerCorner {
    my $this = shift;

    return $this->{'lowerCorner'};
}

sub upperCorner {
    my $this = shift;

    return $this->{'upperCorner'};
}

sub pos {
    my $this = shift;

    return $this->{'pos'};
}

sub longitude {
    my $this = shift;

    return $this->{'longitude'};
}

sub latitude {
    my $this = shift;

    return $this->{'latitude'};
}

1;

__END__