snippet.pl

## This is my attempt at writing a simple grammar in perl6
class EasyCMS::Template {
    
    method render (Str $in, %vars) {
        my $parsetree;
        given $in {
            $parsetree = m/<EasyCMS::Template::Grammar.template>/;
        }
        
        warn $parsetree.perl;
        return $in;
    }
}

grammar EasyCMS::Template::Grammar {
    rule template { <statement>* }
    rule statement { <expression> | <text> }
    token text { [\w | \s]+ }
    rule expression { \[ \% \s? <command> \s? \% \] }
    
}