#!/usr/bin/perl

use warnings;
use strict;

use Parse::RecDescent;

my $grammar = q{
    FOO: "foo"
};

my $p = Parse::RecDescent->new($grammar);

my @tests = ("foo", "foo ", "foo bar", "football", "fog", "barfoo", "bar foo");

for my $test (@tests) {
    if (my $ret = $p->FOO($test)) {
        print "match: '$test' -> '$ret'\n";
    }
    else {
        print "no match: '$test'\n";
    }
}