File Coverage

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

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	18	44.4

package Locale::Maketext::Lexicon::CSV;
{
  $Locale::Maketext::Lexicon::CSV::VERSION = '0.96';
}

use strict;
use Text::CSV_XS;

# ABSTRACT: Use CSV files as lexicons for Maketext


sub parse {
    my @lines = @_;
    my $csv = Text::CSV_XS->new({
        binary => 1,
    });
    my %out;

    foreach my $line (@lines)
    {
        $csv->parse($line);
        my @fields = $csv->fields;
        $out{$fields[0]} = $fields[1];
    }

    return \%out;
}

1;

__END__