Select Code to Download

package Pixie::ObjectInfo;
...
...
    my $obj = $self->really_get($object_id);
    $obj->{__Pixie} = Pixie::ObjectInfo->new(oid => $object_id);
}

$obj->[@$obj] = Pixie::Object::Info->new