File Coverage

blib/lib/Locale/Maketext/Lexicon/DBI.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	24	50.0

package Locale::Maketext::Lexicon::DBI;

use strict;
use warnings;

use version; our $VERSION = qv("0.2.1");

sub parse {
    my ($class, %param) = @_;

    my $dbh = $param{dbh};
    my $sth = $dbh->prepare("SELECT lex_key, lex_value FROM lexicon WHERE lex = ? AND lang = ?");

    $sth->execute($param{lex}, $param{lang})
      or warn "Error while fetching the lexicon.  You may missed the incompatibility change in v0.2.0, see\n"
      . "  perldoc Locale::Maketext::Lexicon::DBI\nThe error was: "
      . $sth->errstr;

    my %lexicon;
    while (my ($key, $value) = $sth->fetchrow) {
        $lexicon{$key} = $value;
    }

    return \%lexicon;
}

1;

__END__