Select Code to Download

#! /usr/bin/perl

...
my %foo : Field;
print "about to call ATTR with \\%bar\n";
my %bar : Field;

about to call ATTR with \%foo
$VAR1 = {
...
          '%just_to_prove_we_are_in_the_right_scope' => {},
          '%foo' => {}
        };