File Coverage

blib/lib/WebService/CIA/Parser.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	36	38	94.7

package WebService::CIA::Parser;

require 5.005_62;
use strict;
use warnings;
use WebService::CIA;

our $VERSION = '1.4';

sub new {

    my $proto = shift;
    my $source = shift;
    my $class = ref($proto) || $proto;
    my $self = {};
    bless ($self, $class);
    return $self;

}


sub parse {

    my ($self, $cc, $html) = @_;

    my $data = {
        'URL - Flag'  => $WebService::CIA::base_url . 'flags/' . $cc . '-flag.gif',
        'URL - Map'   => $WebService::CIA::base_url . 'maps/'  . $cc . '-map.gif',
        'URL'         => $WebService::CIA::base_url . 'geos/'  . $cc . '.html',
        'URL - Print' => $WebService::CIA::base_url . 'print/'  . $cc . '.html'
    };
    while ($html =~ m#
        ]+ class="FieldLabel">.*?

                (.+?):
            .*?.*?

        ]+>
            (.*?)
        (