Help for this page
my $code = sub { # for a better way, see Tanktalus' post below ... return $self->$code(@params); # or: goto &$AUTOLOAD;
my @attributes = qw(color speed); ... *{ $attribute } = $code; } # foreach