File Coverage

blib/lib/Lingua/Metadata.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	11	12	91.6
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	54	55	98.1

use strict;
use warnings;
package Lingua::Metadata;

use LWP::Simple;

our $VERSION = '0.005'; # VERSION

# ABSTRACT: Returns information about languages.

use constant SERVICE_URL => 'http://w2c.martin.majlis.cz/language/';

our %cache_iso = ();
our %cache_metadata = ();


sub get_iso
{
    my $label = shift;

    if ( ! defined($label) ) {
        return;
    }

    if ( ! defined($cache_iso{$label}) ) {
        my $url = SERVICE_URL . '?alias=' . $label;
        $cache_iso{$label} = get($url);
    }

    return $cache_iso{$label};
}


sub get_language_metadata
{
    my $language = shift;

    my %result = ();
    my $iso = get_iso($language);

    if ( ! defined($iso) ) {
        return $iso;
    } elsif ( $iso eq '' ) {
        return \%result;
    }

    my $url = SERVICE_URL . '?action=GET&format=TXT&lang=' . $iso;

    if ( ! defined($cache_metadata{$iso}) ) {
        my $content = get($url);

        if ( $content ) {
            for my $line ( split(/\n/, $content) ) {
                chomp $line;
                my @parts = split(/\t/, $line);
                $result{$parts[1]} = $parts[2];
            }
        }
        $cache_metadata{$iso} = \%result;
    }

    return $cache_metadata{$iso};
}


1;

__END__