package Pixie::Array; sub PIXIE_getoid { return shift->{oid} } # ... sub AUTOLOAD { return shift->{realobj}->$AUTOLOAD(@_) }