From d3162bace28b641946e5311048875f9995d4da2d Mon Sep 17 00:00:00 2001 From: Dinesh Date: Tue, 25 Mar 2014 13:46:27 +0530 Subject: [PATCH] Custom methods for HSTORE and ANY ( method ) in psql --- lib/SQL/Abstract.pm | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index 0bcc7d5f..445a58c2 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -25,6 +25,8 @@ my @BUILTIN_SPECIAL_OPS = ( {regex => qr/^ ident $/ix, handler => '_where_op_IDENT'}, {regex => qr/^ value $/ix, handler => '_where_op_VALUE'}, {regex => qr/^ is (?: \s+ not )? $/ix, handler => '_where_field_IS'}, + {regex => qr/^ (?: not \s )? any $/ix, handler => '_where_field_ANY'}, + {regex => qr/^ (?: not \s )? inhstore $/ix,handler => '_where_field_INHSTORE'}, ); # unaryish operators - key maps to handler @@ -1127,6 +1129,45 @@ sub _where_field_IN { return ($sql, @bind); } +#-----------------------------------------------------------------------------------------------------------------------# +# CUSTOM METHOD: _where_field_ANY # +# # +# USAGE: $model('XYZ')->search({'Group' => { -any => 'Prepay' }}) # +# Credited to : Adam Witney # +# Source: http://dbix-class.35028.n2.nabble.com/Does-DBIx-Class-support-postgresql-arrays-and-ANY-syntax-td2340448.html # +#-----------------------------------------------------------------------------------------------------------------------# +sub _where_field_ANY +{ + my ($self, $field, $op, $arg) = @_; + $arg = [$arg] if not ref $arg; + + my $label = $self->_quote($field); + my ($placeholder) = $self->_convert('?'); + my $sql = $placeholder . " = " . $self->_sqlcase('any') . "($label) "; + my @bind = $self->_bindtype($field, @$arg); + + return ($sql, @bind); +} + +#-------------------------------------------------------------------------------------- +# CUSTOM METHOD: _where_field_INHSTORE +# +# USAGE: $model('XYZ')->search({'Name' => { -inhstore => ['en-us', 'Low Balance'] }}) +#-------------------------------------------------------------------------------------- +sub _where_field_INHSTORE +{ + my ($self, $field, $op, $arg) = @_; + $arg = [$arg] if not ref $arg; + + my $label = $self->_quote($field); + my ($placeholder) = $self->_convert('?'); + my $key = "'" . $arg->[0] . "'"; + my $sql = "$label->" . $key . " = " . $placeholder; + my @bind = $self->_bindtype($field, $arg->[1]); + + return ($sql, @bind); +} + # Some databases (SQLite) treat col IN (1, 2) different from # col IN ( (1, 2) ). Use this to strip all outer parens while # adding them back in the corresponding method