File Coverage

blib/lib/Gwybodaeth/Parsers/GeoNamesXML.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

#!/usr/bin/env perl

use warnings;
use strict;

package Gwybodaeth::Parsers::GeoNamesXML;

=head1 NAME

Parsers::GeoNamesXML - Parses XML from GeoNames.org into a data structure.

=head1 SYNOPSIS

    use GeoNamesXML;

    my $g = GeoNamesXML->new();

    $g->parse(@data);

=head1 DESCRIPTION

This module parses XML data from GeoNames.org into an XMLTwig data structure.

=over

=cut

use Carp qw{croak};
use XML::Twig;

# Inherit from Gwybodaeth::Parsers::XML class
use base 'Gwybodaeth::Parsers::XML';

=item parse(@data)

Parses an array of lines from @data returning a XMLTwig instance.

=cut

sub parse {
    my($self, @data) = @_;

    ref($self) or croak "instance variable expected";

    my $xml = XML::Twig->new();

    my $string;
    for my $line (@data) {
        $string .= $line;
    }

    if($xml->safe_parse($string)) {
        return $xml;
    }

    # if we've reached here something has gone wrong, return a fail
    return 0;
}
1;
__END__