view release on metacpan or  search on metacpan

lib/Parse/Token/Lite/Builder.pm  view on Meta::CPAN

our $VERSION = '0.200'; # VERSION
# ABSTRACT: DSL for Parse::Token::Lite

*_on = sub{ croak 'on'; };
*_name = sub{ croak 'name'; };
*_with = sub{ croak 'with'; };
*_match = sub{ croak 'match'; };
*_start = sub{ croak 'start'; };
*_end = sub{ croak 'end'; };

sub on($&){ goto &_on };
sub name($){ goto &_name };
sub with(&){ goto &_with };
sub match($&){ goto &_match };
sub start($){ goto &_start };
sub end($){ goto &_end };

sub ruleset(&){
	my $rules = {};
	my $code = shift;