package Foo::Bar::base;

use strict;
use warnings;

sub new
{
    my $proto=shift;
    my $class=ref($proto)||$proto;
    my $self=bless {},$class;
    $self->init(@_) or die "init() failed";
    return $self;
}

sub init
{
    # ...
}

sub some_generic_function
{
    # ...
}

1;