package Parent;
...
sub AUTOLOAD {
        my $self = shift @_;

        my $method;
        if ( defined $AUTOLOAD ) {
            ($method = $AUTOLOAD) =~ s/.*:://;
        }
        else {
            $method = shift @_;
        }
...
}