File Coverage

blib/lib/Sub/Lambda/Grammar.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	19	19	100.0

package Sub::Lambda::Grammar;

use warnings;
use strict;
use Parse::RecDescent;

use base qw(Exporter);
our @EXPORT_OK = qw(parse);

my $grammar = q{

Parse       : /^/ Expression /$/ { $item[2] }

Expression  : Unit(s)
              { (join "->", map {qq(($_))} @{$item[1]}) }

Unit        : Code | Lambda | Parens | Symbol

Parens      : '(' Expression ')' { $item[2] }

Lambda      : /[\\\\]/ Pattern /\-\>/ Expression
              { qq( sub { my $item[2] = \@_; $item[4] } ) }

Pattern     : (PWords | Words) { qq(($item[1])) }
Symbol      : DWord | Word

Code        : '{' Block(s?) '}'
              { my $x = join ' ', @{$item[2]}; "do {$x}" }
NoBlock     : /[^{}]+/
Block       : NoBlock | '{' Block(s?) '}'
              { my $x = join ' ', @{$item[2]}; "{$x}" }

PWords      : '(' Words ')' { $item[2] }
Words       : DWord | MWords
MWords      : Word(s) DWord(?) { join ',', @{$item[1]}, @{$item[2]} }
Word        : /[a-zA-Z]\w*/ { '$' . $item[1] }
DWord       :  '-' Word { '@' . substr($item[2],1) }

};

our $parser = new Parse::RecDescent($grammar);

=head1 NAME

Sub::Lambda::Grammar

=head1 DESCRIPTION

Defines the lambda grammar for L.

=head2 METHODS

=over

=item parse($string)

Runs a L parser on its in put with a grammar defined in this
module. In effect, translates embedded lambda expressions to Perl code.

=cut

sub parse ($) { $parser->Parse($_[0]) }

1;

__END__