Neat Perl6 DRY idiom for unpacking named data into locally scoped variables of same name.

perl6DRYusingVAR.pm6

# Neat Perl6 DRY idiom
#
# suppose you want to work with named values in a string
# or data structure, and you want to keep the variable
# names the same as the field/key names.

# sample data using a hash just to kep things simple
my %data = :fee(42), :fie<FIE>, :foo<FOO>, :fum(True);

# DRY idiom:
for my ($fee, $fie, $foo, $fum) {
    my $fieldname = $_.VAR.name.substr(1,*);
    $_ = %data{$fieldname};  # Or whatever to unpack them from a string
}
say "The fee for this is $fee dollars";

For something even DRYer, add it as a function or an operator.

sub infix:<fields-from> ( \vars, %data ) {
  for vars {
    my $field-name = $_.VAR.name.subst(/^\W+/,'');
    $_ = %data{$field-name}
  }
  vars # return vars so that it can be used as part of an expression
}


my %data = :fee(42), :fie<FIE>, :foo<FOO>, :fum(True);

my ($fee, $fie, $foo, $fum) fields-from %data;