Select Code to Download

sub gen_sub {
    my $self = shift;
    my $type = shift;
...

    *{"get_$type"} = $sub_ref;
}

sub AUTOLOAD {
    no strict "refs";
    my ($self, $value) = @_;     # alias these to make it easier later
...
    }
    # handle other methods here or throw a warning
}