This works fine for me:
@attribute_list = qw( foo bar baz ); $package="Zoikes"; for (@attribute_list) { my $sub = qq{package $package; sub get$_ { \$_[0]->get("$_") } }; eval $sub; warn "Problem with $_: $@\n" if $@; } { package Zoikes; sub get { print "Zoikes::get( $_[1] )\n" } } $z = bless { }, "Zoikes"; $z->getfoo; $z->getbar; $z->getbaz; exit 0;
Also consider checking out Class::MethodMaker to avoid reinventing too many wheels.
In reply to Re: Weird eval behavior...
by Fletch
in thread Weird eval behavior...
by dragonchild
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |