japhy% perl -MO=Deparse,-p
my $word =
    $part eq 'n' ? $word = new Noun(@blah) :
    $part eq 'v' ? $word = new Verb(@blah) :
                   $word = new Adjective(@blah);