<pre>
create table person
(
    name varchar(15),
    attr1 varchar(15),
    attr2 varchar(1),
    attr3 char(1),
    attr4 int
)
</pre>

<p>How I can use basic ORM in Perl by taking a simple table like the one above and mapping it to Perl objects?  Next I'd like to perform basic operations like select results using some criteria system Perl like syntax. eg.:</p>

<pre><code>@myResults = findAll(attr1 == 3 &amp;&amp; attr2 =~ /abc/);
</code></pre>

Rule #1, don't write your own.
There are quite a number of ORMs on CPAN, including ...
DBIx::Class
- probably #1 in popularity at the moment
Rose::DB::Object
Fey::ORM
- my own contribution, most notable for being
Moose
-based, which means you get all the power of Moose in your ORM-based classes.