SYNOPSIS

package My::Package;
use base qw{Package::New}; #provides new and initialize

DESCRIPTION

The Package::New object provides a consistent constructor for objects.

I find that I always need these two methods in every package that I build. I plan to use this package as the base for all of my CPAN packages.

RECOMMENDATIONS

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"};
  }

USAGE

CONSTRUCTOR

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.

SUPPORT

DavisNetworks.com provides support services for all Perl applications including this package.

AUTHOR

  Michael R. Davis
  CPAN ID: MRDVT
  DavisNetworks.com
  http://www.DavisNetworks.com/

COPYRIGHT

This program is free software licensed under the...

  The BSD License

The full text of the license can be found in the LICENSE file included with this module.

Building Blocks

base, parent

Other Light Weight Base Objects Similar to Package::New

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

Heavy Base Objects - Drink the Kool-Aid

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

Even more

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