use parent "BASE";

new
{
  my $self=$_[0]->SUPER::new();
  $self->_your_base_are_belong_to_us();
  return $self;
}