#!/usr/bin/perl -w

use jspell;
use Data::Dumper;

my $dict = jspell::new('port');
$dict->setmode({flags => 1, nm=>0});
print "\n\nProcos,flags = ",Dumper($dict->fea('porcos'));

$dict->setmode({flags => 1, nm=>"full"});
print "\n\nDiamente (nm=full,flags) = ", Dumper($dict->fea('diamente'));

$dict->setmode({flags => 1, nm=>"af"});
print "\n\nDiamente (nm=af,flags) = ", Dumper($dict->fea('diamente'));

$dict->setmode({flags => 0, nm=>"af"});
print "\n\nDiamente (nm=af,no flags) = ", Dumper($dict->fea('diamente'));