if (@_ > 1 && ref $_[$#_] eq 'HASH') {
$attrs = { %{ pop(@_) } };
}
- my $query = ref $_[0] eq "HASH" || (@_ == 1) ? shift: {@_};
+ my $query = (@_ == 1 || ref $_[0] eq "HASH" ? shift: {@_});
my @cols = 'COUNT(*)';
my $cursor = $class->storage->select($class->_table_name, \@cols,
$query, $attrs);
return $new->insert;
}
-#sub _cond_resolve {
-# my ($self, $query, $attrs) = @_;
-# return '1 = 1' unless keys %$query;
-# my $op = $attrs->{'cmp'} || '=';
-# my $cond = join(' AND ',
-# map { (defined $query->{$_}
-# ? "$_ $op ?"
-# : (do { delete $query->{$_}; "$_ IS NULL"; }));
-# } keys %$query);
-# return ($cond, values %$query);
-#}
-
=item table
__PACKAGE__->table('tbl_name');