<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -sw

# IMPLICIT SUB RULES, OKAY!

use strict;
use Parse::RecDescent;

my $grammar =
q{
	{ my $state = "happy"; }

	testimony	: declaration(s)
				{ print "Ended up $state\n"; }

	declaration	: 'I' ('like'|'loathe')(s) ('ice-cream'|'lawyers')
				{ print "$item[3]\n";
				  $state = 'happy/sad'; }
			| 'I' ("can't"|"can") ('fly'|'swim')
				{ print "$item[3]\n";
				  $state = 'able/unable'; }
			| &lt;error&gt;

};

my $parse = new Parse::RecDescent ($grammar);
my $input;

while (defined ($input = &lt;&gt;))
{
	$parse-&gt;testimony($input) or print "huh?\n";
}
</pre></body></html>