Hi,

I've not seen this suggested yet:

{
    no strict qw(refs);
    foreach my $method ( keys %{ $self->{'data'} } ) {
        *{$method} = sub {
            my ( $self ) = @_;
            return $self->{'data'}->{$method};
        };
    }
}
[download]

I've used this a few times in the past to generate repetitive object accessors/mutators.

Cheers, Tim

Update: I beg your pardon, snoopy beat me to it :-)