Dynamic method generation?

[Sean McAfee]

Hello--

I recently wrote some Perl 5 code similar to the following, and I'm
wondering what might be the analogous construction in Perl 6:

package MyMatcher;

my @SIMPLE_FIELDS = qw(FOO BAR BAZ BLETCH QUUX ...);

for my $field (@SIMPLE_FIELDS) {
    no strict 'refs';
    *{ "is_\L$field" } = sub { shift->_matches($field) };
}