Sane defaults¶

I recommend that you have sane default for all of your object properties. I recommend using code like this.

  sub myproperty {
    my $self=shift;
    $self->{"myproperty"}=shift if @_;
    $self->{"myproperty"}="Default Value" unless defined $self->{"myproperty"};
    return $self->{"myproperty"};
  }

use strict and warnings¶

I recommend to always use strict, warnings and our version.

  package My::Package;
  use base qw{Package::New};
  use strict;
  use warnings;
  our $VERSION='0.01';

Lazy Load where you can¶

I recommend Lazy Loading where you can.

  sub mymethod {
    my $self=shift;
    $self->load unless $self->loaded;
    return $self->{"mymethod"};
  }

new¶

  my $obj = Package::New->new(key=>$value, ...);

initialize¶

You can override this method in your package if you need to do something after construction. But, lazy loading may be a better option.

Building Blocks¶

base, parent

Other Light Weight Base Objects Similar to Package::New¶

Package::Base, Class::Base, Class::Easy, Object::Tiny, Badger::Base

Heavy Base Objects - Drink the Kool-Aid¶

VSO, Class::Accessor::Fast, Class::Accessor, Moose, (as well as Moose-alikes Moo, Mouse), Class::MethodMaker, Class::Meta

Even more¶

Spiffy, mixin, SUPER, Class::Trait, Class::C3, Moose::Role