my $_objects_created = 0;

sub new {
    my $self = shift;

    if ( ! $_objects_created++ ) {
        $self->build_class();
    }

    # construction continues
}