DBIx并在Perl

Question

继承

我目前正在努力实现与DBIx以下情形：

表产品包含“一般产品”和“捆绑产品”（捆绑产品是普通产品的集合）：

package Product; 
use base 'DBIx::Class::Core'; 
__PACKAGE__->table("products"); 
__PACKAGE__->add_columns(
    "productId", 
    { data_type => "varchar", is_nullable => 0, size => 10}, 
    "name", 
    { data_type => "varchar", is_nullable => 1, size => 150}, 
    "type", 
    { 
    data_type => "enum", 
    default_value => "general", 
    extra => { 
     list => ["general", "bundle"], 
    }, 
    is_nullable => 0, 
    }); 

正如你所看到的，羯羊产品是一般产品或束产品被保存在列类型。

现在我想封装在阶级认同这样的信息：我想有以下类：

• 产品（type无所谓）
• BundleProduct（type =“捆绑”）
• GeneralProduct（type = '通用'）

我写道：

package BundleProduct; 
use base 'Product'; 

__PACKAGE__->resultset_attributes({ where => { 'type' => 'bundle' } }); 
1; 

和

package GeneralProduct; 
use base 'Product'; 

__PACKAGE__->resultset_attributes({ where => { 'type' => 'general' } }); 
1; 

但执行

my @allProducts = $schema->resultset('BundleProduct')->all; 

当所有一般产品被取出。虽然生成的对象具有实例BundleProduct，但生成的SQL包含类GeneralProduct（type ='general'）的WHERE条件。更糟的是：如果我尝试获取Product（基类BundleProduct和GeneralProduct），则也应用条件type ='general'！看来GeneralProduct中的定义会覆盖所有其他定义。

我的设计出了什么问题？

Answer 1

它可能总是默认为一般因为数据没有被膨胀到一个枚举对象？

惊讶，它并没有给出明确的错误，但或许将低于（至Product包），将解决你的问题：

__PACKAGE__->load_components(qw/InflateColumn::Object::Enum/); 

除了上述还尝试加入is_enum => 1您类型列定义：

type => { 
    data_type  => "enum", 
    is_enum  => 1, 
    default_value => "general", 
    is_nullable => 0, 
    extra => { 
    list => ["general", "bundle"], 
    }, 
}, 

NB。这应该强制使用通货膨胀对象（Object::Enum），如果没有它，我相信它会尝试使用原生的RDBMS（如果存在）的枚举。

手指穿过这件作品。如果不尝试删除default_value，看看这是如何影响的东西。

Answer 2

这可能会略微OT，但我似乎总是遇到一些阴险的应用程序实现问题，当处理我的模式中的枚举数据类型。

所以我不再使用它们。我使用外键关系以及各个表或组合表保存所有代码：

<id, code_type, code_name> 
< 1, 'product_type', 'bundle'> 
< 2, 'product_type', 'general'> 

，然后我从产品加盟PRODUCT_TYPE上product.product_type_id = code_table.id

这种技术已提出申请执行在项目开始时以更多的数据库管理为代价，这非常容易。

Answer 3

不推荐使用resultset_attributes。您应该实现的结果集类Product与方法bundle_products和general_products：

package My::Schema::ResultSet::Product; 
use base 'DBIx::Class::ResultSet'; 

sub bundle_products { shift->search({ type => 'bundle' }); } 
sub general_products { shift->search({ type => 'general' }); } 

然后你就可以搜索特定的产品是这样的：

$schema->resultset('Product')->bundle_products->all; 
$schema->resultset('Product')->general_products->all; 

见documentation of resultset_attributes。

也看看DBIx::Class::DynamicSubclass。子类化结果时，它增加了一些有用的功能。