Select Code to Download

$obj->[0] = 'foo';
...
$obj->{'bar'} = 'bar';
$obj->{'baz'} = 'baz';

package Class::Of::Obj;
...
$obj->[$bar_idx] = 'bar';
$obj->[$baz_idx] = 'baz';

package Super::Class;
...
# Everything's hardwired up there and the Super::Class
# isn't telling me. I'm stuck.

package Super::Class;
...
# oops! NEXT_IDX() is still set to '0' up there, and we just set
# OTHER_IDX to 1, clobbering whatever's in the BAR_IDX field!

package Super::Class;
...
use constant OTHER_IDX => __PACKAGE__>SUPER::NEXT_IDX();
#now at 3, after BAZ_IDX

package Super::Class;
...
use constant DIFFERENT_IDX => __PACKAGE__>SUPER::NEXT_IDX();
#now at 4, after OTHER_IDX

package Super::Class;
...
use constant OTHER_IDX => __PACKAGE__>SUPER::NEXT_IDX();
#now at 4, DIFFERENT THAN LAST TIME!

package Super::Class;
...
use constant OTHER_IDX => __PACKAGE__->SUPER::NEXT_IDX();
#also set to 3

package Distant::Sub::Class;
...

#both OTHER_IDX and DIFFERENT_IDX point to index 3. Whoops.

package Super::Class;
...
use constant OTHER_IDX => __PACKAGE__->SUPER::NEXT_IDX();
#also set to 0

my $obj = Sub::Class->new();
$obj->[CLASS_IDX]->[OTHER_IDX];