Я пытаюсь создать модель для Catalyst, используя DBIx :: Class :: Schema :: Loader. Я хочу, чтобы у результирующих классов был базовый класс, к которому я мог бы добавлять методы. Итак, MyTable.pm наследуется от Base.pm, который наследуется от DBIx :: Class :: core (по умолчанию).
Как-то не могу понять, как это сделать. мой сценарий создания ниже, может ли кто-нибудь сказать мне, что я делаю не так? Сценарий создает мою модель нормально, но все классы набора результатов просто наследуются напрямую от DBIx :: Class :: core без моего базового класса между ними.
#!/usr/bin/perl
use DBIx::Class::Schema::Loader qw/ make_schema_at /;
#specifically for the entities many-2-many relation
$ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1;
make_schema_at(
'MyApp::Schema',
{
dump_directory => '/tmp',
debug => 1,
overwrite_modifications => 1,
components => ['EncodedColumn'], #encoded password column
use_namespaces => 1,
default_resultset_class => 'Base'
},
[ 'DBI:mysql:database=mydb;host=localhost;port=3306','rob', '******' ],
);