Select Code to Download

package SRS::MyTest;
our @ISA;
...
BEGIN { print STDERR "HEREISIT @ISA\n"};

1;

delete $INC{'XXX.pm'};
require 'XXX.pm';

# main.pl
use XXX ();
delete $INC{'XXX.pm'};
require 'XXX.pm';

# XXX.pm
package XXX;
...
BEGIN { print STDERR "HEREISIT @ISA\n"};

1;

$ perl main.pl
HEREISIT File::Find
HEREISIT File::Find File::Find