File Coverage

blib/lib/Pugs/Compiler/Token.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	20	22	90.9

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__