package MyClass::DBI;
use base 'Class::DBI::mysql';
sub new {
  my $pkg = shift;
  my $self; { my %hash; $self = bless(\%hash, $pkg); }
  $self->set_db(@_);
  return $self;
}

package MyClass::Item;
use base 'MyClass::DBI';
MyClass::Item->set_up_table('item');

1;