Class:DBI的应用有关问题

Class::DBI的应用问题
## Class::DBI ##################################
__PACKAGE__->set_sql(get_count => qq{
  SELECT
    count(*)
  FROM
    __TABLE__
  %s
});

利用上述格式、把下述的SQL条件动态替换进去、求写段函数

## SQL文 ########################################
SELECT *
  FROM users
 WHERE (last_name='姓' AND first_name='名')
    OR phone='1122223'
    OR mail_address='me@aaa.cn'

[解决办法]
$where->{'-or'} = [ {'-and' => [ {last_name  => "姓"},
                                 {first_name => "名"} ]},
                    {phone => "1122223"}             
                  ];

若要把 mail_address='me@aaa.cn'
追加到上述数据结构里，该如何写？

也就是说，实现上述数据结构，如何分开添加？
[解决办法]

my $where=[]; 
push( @$where, {'-and' => [ {last_name  => "姓"},
                            {first_name => "名"} 
                          ]} );
push( @$where, { phone => "1122223" } ); 
push( @$where, { mail_address => 'me@aaa.cn' } ); 

my ( $users_count ) = Data::users->count( $where, { logic => 'OR' } );
print "users_count: ". $users_count, "\n";