perl – 如何使用Moose设置DBIx :: Class模式 – 明确指南

> make_immutable与非Moose新构造函数冲突：使用MooseX :: NonMoose自动处理;与其文件相比,不需要进一步的论据或选择;请注意,DBIx :: Class :: Schema没有新方法,因此MyApp :: Schema不需要这个帮助器
> InflateColumn :: DateTime在基类中加载时不膨胀：这是由赋予load_components()的组件顺序触发的;在文件中没有暗示订单应该重要,我已经提交了a bug report关于此;重新排序有帮助

使用上面的解决方案,我的示例DBIx :: Class模式与Moose看起来像这样：

架构类：

package MyApp::Schema;

use Moose; # we want Moose
use MooseX::MarkAsMethods autoclean => 1; # this helps removing unused symbols like Moose keywords
# do NOT 'use MooseX::NonMoose' here because Schema class has no 'new' method

extends 'DBIx::Class::Schema'; # the Moose way of inheritance

# load all table modules automatically
__PACKAGE__->load_namespaces(
    # ResultSet class for tables without custom ResultSet class
    # (would be DBIx::Class::ResultSet otherwise)
    default_resultset_class => '+MyApp::Schema::ResultSet',);

# tell Moose this class is finished: some Moose stuff is removed and things go faster
__PACKAGE__->meta->make_immutable;

1;

通用结果基类：

# a base class for all table class of this app
package MyApp::Schema::Result;

use Moose;
use MooseX::MarkAsMethods autoclean => 1;
use MooseX::NonMoose; # this is important for correctly handling DBIx::Class' new

extends 'DBIx::Class::Core';

# this is the right place to implement generic stuff

# DBIx::Class::Cookbook recommends loading components in a central place
__PACKAGE__->load_components(qw/
    InflateColumn::DateTime
    ...
/);

__PACKAGE__->meta->make_immutable;

1;

通用ResultSet基类：

package MyApp::Schema::ResultSet;

use Moose;
use MooseX::MarkAsMethods autoclean => 1;
use MooseX::NonMoose;

extends 'DBIx::Class::ResultSet';

__PACKAGE__->meta->make_immutable;

1;

表my_table的示例ResultSet类：

package MyApp::Schema::ResultSet::MyTable;

use Moose;
use MooseX::MarkAsMethods autoclean => 1;

extends 'MyApp::Schema::ResultSet';

sub oldest {
    my $self = shift;

    $self->search({},{order_by => {-ASC => 'date'}})->first;
}

__PACKAGE__->meta->make_immutable;

1;

表my_table的示例结果类：

package MyApp::Schema::Result::MyTable;

use Moose;
use MooseX::MarkAsMethods autoclean => 1;

extends 'MyApp::Schema::Result';

__PACKAGE__->table("my_table");

__PACKAGE__->add_columns(
    id   => {data_type => "integer",is_auto_increment => 1},date => {data_type => "date"},);

__PACKAGE__->set_primary_key("id");

__PACKAGE__->meta->make_immutable;

1;