$obj->[0]=Pixie::Object::Info->new()

##</code><code>##

sub for_pixie {
  my $self=shift;
  $self->[0]=shift if @_;
  return $self->[0];
}