Pugs::Compiler::Token - Compiler for Perl 6 Token

Pugs-Compiler-Rule documentation

Contained in the Pugs-Compiler-Rule distribution.

Index

NAME
DESCRIPTION
AUTHORS
SEE ALSO
COPYRIGHT

Code Index:

package Pugs::Compiler::Token
- compile
__END__
EOF

NAME

Pugs::Compiler::Token - Compiler for Perl 6 Token

DESCRIPTION

This module provides an implementation for Perl 6 Token. See Pugs::Compiler::Rule for documentation.

AUTHORS

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

SEE ALSO

The Perl 6 Rules Spec: http://dev.perl.org/perl6/doc/design/syn/S05.html

COPYRIGHT

Copyright 2006 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

Pugs-Compiler-Rule documentation

Contained in the Pugs-Compiler-Rule distribution.

package Pugs::Compiler::Token;

our $VERSION = '0.28';

use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__