FrameNet::WordNet::Detour 0.99c

FrameNet::WordNet::Detour is a WordNet to FrameNet Detour.

SYNOPSIS

use FrameNet::WordNet::Detour;

# Creation without parameters, $WNHOME and $FNHOME will be used
my $detour = FrameNet::WordNet::Detour->new;

# Creation with some parameters
my $detour2 = FrameNet::WordNet::Detour->new(-wnhome => /path/to/WordNet,
-fnhome => /path/to/FrameNet
-cached => 1,
-limited => undef);

my $result = $detour->query("walk#v#1");

if ($result->is_ok) {
print "Best frames: n";
print join( , @{$result->get_best_framenames})."n";

print "All frames: n";
print join( , @{$result->get_all_framenames})."n";

print "All frames with weights: n";
foreach my $frame (@{$result->get_all_frames}) {
print $frame->name.": ";
print $frame->get_weight."n";
}
} else {
print $result->message."n";
}