package SRS::MyTest;
use parent 'File::Find';
our @ISA;
BEGIN { print STDERR "HEREISIT @ISA\n"};
1;
####
HEREISIT File::Find File::Find
- /somepath/MyTest.pm reloaded 2343
####
$ cat s1.pl
package XXX;
BEGIN { require mro; mro::set_mro( "XXX", 'c3' ); }
use parent qw( File::Find );
use parent qw( File::Find );
1;
$ perl s1.pl
Inconsistent hierarchy during C3 merge of class 'XXX':
current merge results [
XXX,
]
merging failed on 'File::Find' at /usr/share/perl/5.14/parent.pm line 26.
BEGIN failed--compilation aborted at s1.pl line 4.