package Foo;

sub new  { my $self = bless {}, shift; $self->_init }
sub _init { 'initialize data here' }

package Bar;
use base 'Foo';

sub _init { warn "We didn't initialize our data :(\n" }

package main;
my $thing = Bar->new;