/usr/local/CPAN/Pixie/Pixie/Object.pm

• package Pixie::Object
  • new
  • init
• EOF

package Pixie::Object;

use strict;

our $VERSION="2.06";

sub new {
  my $proto = shift;
  my $self =  bless {}, $proto;
  $self->init;
  return $self;
}

sub init { $_[0]; }

1;