sub generate_method
{
    my $self = shift;
    my ($name) = @_;

    my $method = <generate method and put into namespace>;

    return $method;
}

sub can
{
    my $self = shift;
    my ($name) = @_;

    if ( <some rule that determines when a method is handled by AUTOLOAD> )
    {
        return $self->generate_method($name);
    }

    $self->SUPER::can($name);
}

sub AUTOLOAD
{
    my $name = our $AUTOLOAD;
    $name =~ s/.*::([^:]+)$/$1/;

    my $self = shift;


    if ( <some rule that determines when a method is handled by AUTOLOAD> )
    {
        return $self->generate_method( $name )->(@_);
    }

    $self->SUPER::AUTOLOAD( @_ );
}