#!/usr/bin/env perl6
use Test;

our %sigils = (
    bang   => '!', at      => '@', hash  => '#',
    dollar => '$', percent => '%', caret => '^',
    and    => '&', star    => '*', zero  => '0',
);

our grammar DynGrammar {
    my $sigil;
    regex TOP {
      ^^ (\w+) <?{ $sigil=%sigils{$0} if %sigils{$0}:exists }>
         \s+ $sigil (.*?) $sigil \n?  $$ }
}

our class DynActions {
    method TOP($/) { make $1 }
}

sub dyn(Str $str) {
    DynGrammar.parse($str, :actions(DynActions)).made
}

is   dyn('bang    !one!' ), 'one',  'parse bang!one ok';
is   dyn('zero    0one0' ), 'one',  'parse zero0one ok';
isnt dyn('bang    @one@' ), 'one',  'isnt  bang@one ok';
isnt dyn('BONK    !one!' ), 'one',  'isnt  BONK!one ok';
nok  DynGrammar.parse('bang @one@', :actions(DynActions)), 'nok';
nok  DynGrammar.parse('BONK !one!', :actions(DynActions)), 'unk';