main

use DBIx::Custom;
use MyModel;
my $dbi = DBIx::Custom->connect( dsn => 'DBI:mysql:database=db;host=localhost;',
                                 user => 'mc',
                                 password => 'pass',
                                 connector => 1
                                 );

my $models = $dbi->include_model('MyModel');;
my $mc_users = $dbi->model('mc_users');
my $emails = $mc_users->select;# нужно чтобы наследовал от DBIx::Custom вместо того чтобы вызывать select от MyModel::mc_users

# ==================================
package MyModel;
use DBIx::Custom::Model -base;

1;

# =================================
package MyModel::mc_users;
use MyModel -base;


sub new {
  my $class = shift;
  my $self = {
    table => 'mc_users',
    class => $class,
    name  => 'mc_users',
    primary_key => 'id'
    };
  bless $self, $class;
}

# проваливается сюда - а нужно чтобы наследовал от DBIx::Custom::Model
#sub select {
#  my $self = shift;
#  return 1;
#}

1;