view release on metacpan or  search on metacpan

lib/AI/MicroStructure/Locale.pm  view on Meta::CPAN

our @ISA = qw( AI::MicroStructure::MultiList );
our $VERSION = '0.20';

sub init {
    # alias the older package variable %Locale to %MultiList
    no strict 'refs';
    *{"$_[0]::Locale"}    = \%{"$_[0]::MultiList"};
    ${"$_[0]::Separator"} = '_';

    # call the parent class init code
    goto &AI::MicroStructure::MultiList::init;
}

sub new {
    my $class = shift;

    no strict 'refs';
    my $self = bless { @_, cache => [] }, $class;

    # compute some defaults