package Datawarehouse::Employee;
use Class::MethodMaker
    new_with_init => 'new'; 
    
sub init {
    # ...Load up a whole lot of data

    # Bless my own object into the class
    Datawarehouse::Employee->new_new(\%args);
}

sub new_new {
    # This constructor is a HELL of alot faster than creating an
    # object by calling accessor methods one by one.
    my $class = shift;
    my $args = shift;
    my $obj = bless $args, $class; # Loading the whole hash as one
}