use My::Subclass qw( connection args );

###

package My::Subclass;
use base 'SuperClass';

sub import {
  my $class = shift;
  SuperClass->db_connect(@_);
}

###

package SuperClass;

sub db_connect {
  my $class = shift;
  # use @_ to make the DB connection
}