DBIx và thừa kế trong Perl

Question

tôi đang cố gắng để thực hiện các tình huống sau với DBIx:

Bảng

sản phẩm chứa "sản phẩm chung" và "sản phẩm bó" (bó sản phẩm này là bộ sưu tập các sản phẩm nói chung):

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, 
    }); 

Như bạn có thể thấy, thời tiết các sản phẩm là một vị tướng sản phẩm hoặc một sản phẩm bó được lưu trong cột loại.

Bây giờ tôi muốn để đóng gói thông tin này trong bản sắc lớp: Tôi muốn có các lớp sau:

• Sản phẩm (type không quan trọng)
• BundleProduct (type = 'bó')
• GeneralProduct (type = 'chung')

tôi đã viết:

012.

package BundleProduct; 
use base 'Product'; 

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

và

package GeneralProduct; 
use base 'Product'; 

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

Nhưng khi thực hiện

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

tất cả sản phẩm chung được lấy. Mặc dù các đối tượng kết quả là ví dụ BundleProduct, SQL được tạo ra chứa điều kiện WHERE của lớp GeneralProduct (type = 'chung'). Thậm chí tệ hơn: Nếu tôi cố gắng lấy một số Product (lớp cơ sở là BundleProduct và GeneralProduct), điều kiện type = 'chung' cũng được áp dụng! Dường như định nghĩa trong phạm vi GeneralProduct sẽ ghi đè tất cả các định nghĩa khác.

Điều gì sai với thiết kế của tôi?

Answer 1

Nó luôn có thể được mặc định là chung vì dữ liệu không bị thổi phồng vào đối tượng Enum?

Ngạc nhiên rằng nó không đưa ra một lỗi rõ ràng nhưng có lẽ thêm dưới đây (để Product gói) sẽ khắc phục vấn đề của bạn:

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

bổ sung để ở trên cũng thử thêm is_enum => 1-kiểu định nghĩa cột của bạn:

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

NB. Điều này nên thực thi việc sử dụng các đối tượng lạm phát (Object::Enum) trong khi không có nó tôi tin rằng nó cố gắng sử dụng enum bản địa cho RDBMS bạn đang sử dụng (nếu có).

Ngón tay đã vượt qua tác phẩm này.Nếu không thử xóa default_value để xem điều này ảnh hưởng đến mọi thứ như thế nào.

Answer 2

Điều này có thể hơi OT, nhưng dường như tôi luôn gặp phải một số vấn đề triển khai ứng dụng ngớ ngẩn khi xử lý các loại dữ liệu enum trong lược đồ của tôi.

Vì vậy, tôi không sử dụng chúng nữa. Tôi sử dụng các mối quan hệ ngoại chủ chốt và một trong hai bảng cá nhân hoặc một bảng kết hợp giữ tất cả các mã:

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

và sau đó tôi tham gia từ sản phẩm đến PRODUCT_TYPE trên product.product_type_id = code_table.id

Kỹ thuật này đã thực hiện ứng dụng dễ dàng hơn nhiều với chi phí quản lý cơ sở dữ liệu bổ sung vào đầu dự án.

Answer 3

Không nên sử dụng resultset_attributes. Bạn nên thực hiện một bộ lớp kết quả cho Product với các phương pháp bundle_products và 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' }); } 

Sau đó, bạn có thể tìm kiếm các sản phẩm cụ thể như thế này:

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

Xem documentation of resultset_attributes.

Ngoài ra, hãy xem DBIx::Class::DynamicSubclass. Nó cho biết thêm một số tính năng hữu ích khi phân lớp kết quả.