view release on metacpan or  search on metacpan

examples/ex1  view on Meta::CPAN

#!/usr/bin/perl

use strict;
#undef $/;
#$/='';

use Lingua::Jspell::DictManager;

my $dict = Lingua::Jspell::DictManager::init("microdic");

# $dict->for_this_cat_I_want_only_these_flags('nc', 'fp');
# $dict->add_flag("p","linha","carro",...);
# $dict->add_word(map { chomp; +{word=>$_,flags=>'p',CAT=>'nc',G=>'m'}} <DATA>);

while(<DATA>){