|
cpansearch.perl.org
package Lingua::ZH::WordSegmenter; use warnings; use strict; use Encode; # Constructor new sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = {}; bless($self, $class); # Run initialisation code return $self->_init(@_); } sub _init{
cpansearch.perl.org
|
|