diff --git a/test-rewrite.raku b/test-rewrite.raku index 7389525..8dfccd2 100644 --- a/test-rewrite.raku +++ b/test-rewrite.raku @@ -7,19 +7,21 @@ start { $supplier.emit: %(:type) } event Bla { + # patterm TOP { + # > + # } + use Pattern; my $pattern = Pattern.bless: :name, :source(')>'); $pattern.add-rule-call: 'event', \(:type), :store-key; ::?CLASS.^add_method: 'TOP', $pattern; say $pattern.list-steps; - - # method TOP { - # $.event: :type - # } } react { whenever Bla.parse($supplier.Supply) { .say + # TOP: 「」 - ()>) + # test => event: 「{type => t1}」 - (event(...)) } }