package Chatbot::Eliza;

sub new { bless {}, shift }
sub DESTROY {}

package Foo;

use warnings;
sub Chatbot::Eliza::DESTROY {}

__DATA__
Subroutine Chatbot::Eliza::DESTROY redefined at script line 9 .