File Coverage

blib/lib/Lingua/JA/Categorize.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Lingua::JA::Categorize;
use strict;
use warnings;
use Lingua::JA::Categorize::Tokenizer;
use Lingua::JA::Categorize::Categorizer;
use Lingua::JA::Categorize::Generator;
use base qw( Lingua::JA::Categorize::Base );

__PACKAGE__->mk_accessors($_) for qw( tokenizer categorizer generator );

our $VERSION = '0.02002';

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);
    $self->tokenizer(
        Lingua::JA::Categorize::Tokenizer->new( context => $self ) );
    $self->categorizer(
        Lingua::JA::Categorize::Categorizer->new( context => $self ) );
    $self->generator(
        Lingua::JA::Categorize::Generator->new( context => $self ) );
    return $self;
}

sub categorize {
    my $self           = shift;
    my $text           = shift;
	my $word_num       = shift;
    my $word_set       = $self->tokenizer->tokenize( \$text, $word_num );
    my $user_extention = $self->tokenizer->user_extention;
    my $result = $self->categorizer->categorize( $word_set, $user_extention );
    return $result;
}

sub generate {
    my $self       = shift;
    my $categories = shift;
    my $brain      = $self->categorizer->brain;
    $self->generator->generate( $categories, $brain );
}

sub load {
    my $self      = shift;
    my $save_file = shift;
    $self->categorizer->load($save_file);
}

sub save {
    my $self      = shift;
    my $save_file = shift;
    $self->categorizer->save($save_file);
}

sub train {
    my $self = shift;
    $self->categorizer->train(@_);
}

1;
__END__