File Coverage

blib/lib/Lingua/RU/OpenCorpora/Tokenizer/Vectors.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	3	5	60.0
subroutine	7	7	100.0
pod	2	2	100.0
total	34	36	94.4

package Lingua::RU::OpenCorpora::Tokenizer::Vectors;

use strict;
use warnings;
use parent 'Lingua::RU::OpenCorpora::Tokenizer::List';

our $VERSION = 0.06;

use File::ShareDir qw(dist_dir);

sub new {
    my($class, $args) = @_;

    $args             ||= {};
    $args->{data_dir} ||= dist_dir('Lingua-RU-OpenCorpora-Tokenizer');

    my $self = $class->SUPER::new('vectors', $args);

    $self;
}

sub in_list { $_[0]->{data}{$_[1]} }

sub _parse_list {
    my($self, $list) = @_;

    chomp @$list;
    $self->{data} = +{ map split, @$list };

    return;
}

1;

__END__