File Coverage

blib/lib/Class/Init.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	26	28	92.8

package Class::Init;

use 5.008001;
use strict;
use warnings;

use NEXT;

our @EXPORT = qw( new );
our @EXPORT_OK = @EXPORT;

require Exporter;
our @ISA = qw(Exporter);

our $VERSION = '1.1';


# Preloaded methods go here.

sub _constructor ($;@) {
    # This gets called if all else fails to create $self.
    return bless { @_[1..$#_] }, $_[0];
}

sub new ($;@) {
    # Set $self to our parent's idea of new(), or otherwise just a simple blessed hashref.
    my $self = $_[0]->_constructor(@_[1..$#_]);
    # Scan the inheritance tree for initialization routines and execute them, top-down.
    $self->EVERY::LAST::_init(@_[1..$#_]);
    $self->_init(@_[1..$#_]) if defined &_init;

    $self;
}

sub _init ($;%) {
    # Install any default attributes into the object's hash.
    $_[0]->{$_[0+2*$_]} = $_[0]->{$_[1+2*$_]} for (1..($#_-1)/2);
}

1;
__END__