grammar anchors

#!/usr/bin/env perl6

use v6;
my $one = "hello one\ntwo three";

grammar Foo {
    #token TOP { <thebeginning>.+$ }  #will not trigger the 'theend' action method
    #token TOP { ^.+<theend> } #will not trigger 'thebeginning' action method
    token TOP { <thebeginning>.+<theend> } #will trigger both
    token thebeginning { ^ }
    token theend { $ }
}

class FooAction {
    method thebeginning($/) {
        say "in the beginning";
    }
    method theend($/) {
        say "there is an end";
    }
}

say "parsing";
my $a = FooAction.new;
my $m = Foo.parse($one, :actions($a));
say "it's over";