Created type: some Created type: more my ($subclass,$subclass_eclipse_1); $subclass = 'WTF::some'; $subclass_eclipse_1 = 'WTF::more'; $HASH1 = { ISA => *WTF::some::ISA, new => *WTF::some::new }; *WTF::some::ISA = [ 'WTF' ]; *WTF::some::new = sub { package WTF; use warnings; use strict 'refs'; my $self = shift @_; bless \my($scalar), $subclass; }; $HASH2 = { ISA => *WTF::more::ISA, new => *WTF::more::new }; *WTF::more::ISA = [ 'WTF' ]; *WTF::more::new = sub { package WTF; use warnings; use strict 'refs'; my $self = shift @_; bless \my($scalar), $subclass_eclipse_1; };