Propagating Cursor state

converter.pl6

#!/usr/bin/env perl6

grammar Tracker {
    regex TOP {
        { make {:!inQuote} }
        Beginning
        <quoteStart>
        .*
        <laterRule>
        End
    }

    regex quoteStart {
        \" { make {:inQuote} }
        <subRule>?
    }

    regex subRule {
        { say "sub rule fails" if not $/.made<inQuote> }
        #{ fail if not $/.made<inQuote> }
        \" #{ make {:!inQuote} }
    }

    regex laterRule {
        { say "later rule fails" if not $/.made<inQuote> }
        { fail if not $/.made<inQuote> }
        \" { make {:!inQuote} }
    }
}

say so Tracker.parse("Beginning\"xy\"End");

# vim: expandtab shiftwidth=4 ft=perl6

Outputs:
sub rule fails
later rule fails
False