for (@attribute_list) {
    my $sub = "package $package; sub get$_ { \$_[0]->get($_) }; ";
    eval $sub;
}

##</code><code>##

Foo->define_attributes(qw(attr1 attr2 attr3));