The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Pugs::Compiler::Rule - Compiler for Perl 6 regexes

VERSION

This document describes Pugs::Compiler::Rule 0.28 released on 31 Oct, 2007.

SYNOPSIS

Un-named rules are objects:

use Pugs::Compiler::Rule;

my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
my $match = $rule->match( 'abc' );

if ($match) {               # true
    print $match;           # "abc"
    print $match->from;     # 0
    print $match->to;       # 3
    print $match->[0];      # "ab"
    print $match->[0][0];   # "a"
}

Named rules are methods in a Grammar:

package MyGrammar;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

Pugs::Compiler::Rule->install( rule => '((.).).' );
my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

$grammar->install(subrule => $source, { signature => $sig } );

$grammar->install(rule => q{
        <subrule: param1, param2>
});

where $grammar is normally a Perl 5 package.

DESCRIPTION

This module provides an pure Perl 5 implementation for Perl 6 regexes, which does not depend on the Haskell Pugs.

It is a front-end to several other modules:

Front-end Modules

Runtime Classes

Grammars

Code Emitters

INHERITANCE

Pugs::Compiler::Rule
   isa Pugs::Compiler::Regex

METHODS

This class (i.e. Pugs::Compiler::Rule) is a subclass of Pugs::Compiler::Regex and thus owns all the methods of its base class. See Pugs::Compiler::Regex for the detailed docs.

$rule = Pugs::Compiler::Rule->compile($p6_regex, $params)

Specifically, this class overrides the compile method of Pugs::Compiler::Regex which resets the following options' default values:

ratchet => 1

Here is an example:

$rule = Pugs::Compiler::Rule->compile(
    'a*\w',
);
my $match = $rule->match('aaa');
# $match->bool is false since no backtracking
# happened
sigspace => 1

Here is an example:

my $rule = Pugs::Compiler::Rule->compile(
    'a b',
);
my $match = $rule->match('a     b');
ok $match->bool, 'sigspace works';
is $match->(), 'a     b', 'sigspace works (2)';

CAVEATS

This is an experimental development version. The API is still in flux.

The set of implemented features depend on the ratchet switch.

AUTHORS

The Pugs Team <perl6-compiler@perl.org>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

SEE ALSO

COPYRIGHT

Copyright 2006, 2007 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html