use strict;
use Lingua::LinkParser;

## This script demonstrates how to navigate a linkage using a word object.

my $parser = new Lingua::LinkParser;

my $sentence = $parser->create_sentence("Moses supposes his toses are roses.");
my $linkage  = $sentence->linkage(1);

my @words = $linkage->words;
foreach my $word (@words) {
    print $word->text, "\n";
    my @links = $word->links;
    foreach my $link (@links) {
        print "  link type ", $link->linklabel, " to word ", $link->linkword, "\n";
    }
} 

my $Moses = '"Moses\.\w" ';
my $does_something = 'Ss:\d+:(\w+)\.v';
my $action_by_moses = "$Moses\s*$does_something";

if ($linkage =~ /$action_by_moses/o) {
    print "\nWhat does Moses do? He $1, of course.\n\n";
}