use Parse::RecDescent;

my $parser;

$parser = Parse::RecDescent->new(q` test: { $return = 1 } `);
print($parser->test('') ? 'ok' : 'fail', "\n");  # ok

$parser = Parse::RecDescent->new(q` test: { $return = 0 } `);
print($parser->test('') ? 'ok' : 'fail', "\n");  # fail

$parser = Parse::RecDescent->new(q` test: { $return = '0' } `);
print($parser->test('') ? 'ok' : 'fail', "\n");  # fail

$parser = Parse::RecDescent->new(q` test: { $return = undef } `);
print($parser->test('') ? 'ok' : 'fail', "\n");  # fail

$parser = Parse::RecDescent->new(q` test: /\d+/ `);
print($parser->test('1') ? 'ok' : 'fail', "\n");  # ok
print($parser->test('0') ? 'ok' : 'fail', "\n");  # fail