Re: How can I use AUTOLOAD to magically define get and set methods for my member data?

[chromatic]

Here's a quick and dirty autoloader. It assumes your member data is stored in a hash, and that the get and set functions take the form "get_foo" and "set_bar".

use vars '$AUTOLOAD';

# a while later

sub AUTOLOAD {
    my $self = shift;
    return if ($AUTOLOAD =~ /DESTROY/);    # don't mess with garbage c
+ollection
    if ($AUTOLOAD =~ /.*::set_(\w+)/) and (@_) {
        return $self->{$1} = shift;
    } elsif ($AUTOLOAD ~= /.*::get_(\w+)/) {
        return $self->{$1};
    }
    # handle bad methods here, return undef ?
}