create table person
(
name varchar(15),attr1 varchar(15),attr2 varchar(1),attr3 char(1),attr4 int
)
如何通过采用上面的简单表并将其映射到Perl对象,在Perl中使用基本ORM？接下来,我想使用一些标准系统Perl像语法一样执行基本操作,例如选择结果.例如.：
@myResults = findAll(attr1 == 3 && attr2 =~ /abc/);
解决方法
规则#1,不要自己写.
CPAN上有很多ORM,包括……
> DBIx::Class – 目前在人气方面可能排名第一
> Rose::DB::Object
> Fey::ORM – 我自己的贡献,最值得注意的是基于Moose,这意味着你可以在基于ORM的课程中获得Moose的所有力量.