#!/usr/bin/perl -w
use strict;
#
# This is the module's SYNOPSIS section.
#
  use Lingua::TokenParse;

  my $word = 'partition';
  my %lexicon;
  @lexicon{qw(ti art ion)} = qw(foo bar baz);
  my $obj = Lingua::TokenParse->new(
      word => $word,
      lexicon => \%lexicon,
  );
  $obj->output_knowns;

  # Okay.  Now, let's parse a new word.
  $obj->word('metaphysical');
  $obj->lexicon({
      'meta-' => 'more comprehensive',
      'ta'    => 'foo',
      'phys'  => 'natural science, singular',
      '-ic'   => 'being, containing',
      '-al'   => 'relating to, characterized by',
  });
  $obj->parse;
  $obj->output_knowns;
