[Bps-public-commit] dbix-searchbuilder branch search-support-bind created. 1.69-2-g3776681

BPS Git Server git at git.bestpractical.com
Thu Sep 2 12:05:08 UTC 2021


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "dbix-searchbuilder".

The branch, search-support-bind has been created
        at  3776681c23f2640ec43fbc0531a74bcd8351b429 (commit)

- Log -----------------------------------------------------------------
commit 3776681c23f2640ec43fbc0531a74bcd8351b429
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Sep 2 03:18:22 2021 +0800

    Test bind values for searches

diff --git a/t/03searches_bind.t b/t/03searches_bind.t
new file mode 100644
index 0000000..47652f0
--- /dev/null
+++ b/t/03searches_bind.t
@@ -0,0 +1,366 @@
+use strict;
+use Test::More;
+
+BEGIN { require "t/utils.pl" }
+our (@AvailableDrivers);
+
+use constant TESTS_PER_DRIVER => 39;
+
+my $total = scalar(@AvailableDrivers) * TESTS_PER_DRIVER;
+plan tests => $total;
+
+foreach my $d (@AvailableDrivers) {
+SKIP: {
+        unless ( has_schema( 'TestApp', $d ) ) {
+            skip "No schema for '$d' driver", TESTS_PER_DRIVER;
+        }
+        unless ( should_test($d) ) {
+            skip "ENV is not defined for driver '$d'", TESTS_PER_DRIVER;
+        }
+
+        my $handle = get_handle($d);
+        connect_handle($handle);
+        isa_ok( $handle->dbh, 'DBI::db' );
+
+        my $ret = init_schema( 'TestApp', $handle );
+        isa_ok( $ret, 'DBI::st', "Inserted the schema. got a statement handle back" );
+
+        my $count_users = init_data( 'TestApp::User', $handle );
+        ok( $count_users, "init users data" );
+        my $count_groups = init_data( 'TestApp::Group', $handle );
+        ok( $count_groups, "init groups data" );
+        my $count_us2gs = init_data( 'TestApp::UsersToGroup', $handle );
+        ok( $count_us2gs, "init users&groups relations data" );
+
+        my $clean_obj = TestApp::Users->new($handle);
+
+        local $DBIx::SearchBuilder::PREFER_BIND = 1;
+
+        my $users_obj = $clean_obj->Clone;
+        for my $login ( 'Gandalf', "Bilbo\\Baggins", "Baggins' Frodo" ) {
+            $users_obj->Limit( FIELD => 'Login', VALUE => $login );
+            is( $users_obj->Count,        1,      "only one value" );
+            is( $users_obj->First->Login, $login, "$login is the only match" );
+
+            # Using \W here because Login might be wrapped in LOWER().
+            ok( $users_obj->BuildSelectQuery =~ /Login\W*=\s*\?/i,
+                'found a placeholder in select query' );
+            ok( $users_obj->BuildSelectCountQuery =~ /Login\W*=\s*\?/i,
+                'found a placeholder in select count query'
+              );
+            $users_obj->CleanSlate;
+        }
+
+        $users_obj->Limit(
+            FIELD    => 'Login',
+            VALUE    => [ "Bilbo\\Baggins", "Baggins' Frodo" ],
+            OPERATOR => 'IN',
+        );
+        is( $users_obj->Count, 2, "2 values" );
+        is_deeply(
+            [ sort map { $_->Login } @{ $users_obj->ItemsArrayRef } ],
+            [ "Baggins' Frodo", "Bilbo\\Baggins" ],
+            '2 Baggins',
+        );
+        $users_obj->CleanSlate;
+
+        for my $name ( "Shire's Bag End", 'The Fellowship of the Ring' ) {
+            my $groups_obj = TestApp::Groups->new($handle);
+            $groups_obj->Limit( FIELD => 'Name', VALUE => $name, OPERATOR => 'LIKE' );
+            $groups_obj->Limit( FIELD => 'id',   VALUE => 0,     OPERATOR => '>' );
+            is( $groups_obj->Count,       1,     "only one value" );
+            is( $groups_obj->First->Name, $name, "$name is the only match" );
+
+            # Using \W here because Login might be wrapped in LOWER().
+            ok( $groups_obj->BuildSelectQuery =~ /Name\W*I?LIKE\s*\?/i,
+                'found a placeholder for Name in select query'
+              );
+            ok( $groups_obj->BuildSelectQuery =~ /id\s*>\s*\?/i,
+                'found a placeholder for id in select query'
+              );
+            ok( $groups_obj->BuildSelectCountQuery =~ /Name\W*I?LIKE\s*\?/i,
+                'found a placeholder for Name in select count query'
+              );
+            ok( $groups_obj->BuildSelectCountQuery =~ /id\s*>\s*\?/i,
+                'found a placeholder for id in select count query'
+              );
+        }
+
+        my $alias = $users_obj->Join(
+            FIELD1 => 'id',
+            TABLE2 => 'UsersToGroups',
+            FIELD2 => 'UserId'
+        );
+
+        my $group_alias = $users_obj->Join(
+            ALIAS1 => $alias,
+            FIELD1 => 'GroupID',
+            ALIAS2 => $users_obj->NewAlias('Groups'),
+            FIELD2 => 'id'
+        );
+        $users_obj->Limit(
+            LEFTJOIN => $group_alias,
+            FIELD    => 'Name',
+            VALUE    => "Shire's Bag End",
+        );
+
+        is( $users_obj->Count, 2, "2 values" );
+        is_deeply(
+            [ sort map { $_->Login } @{ $users_obj->ItemsArrayRef } ],
+            [ "Baggins' Frodo", "Bilbo\\Baggins" ],
+            '2 Baggins',
+        );
+
+        # ? in JOIN condition
+        ok( $users_obj->BuildSelectQuery( PreferBind => 0 ) !~ /\?/,
+            'found placeholder in select query' );
+        ok( $users_obj->BuildSelectCountQuery( PreferBind => 0 ) !~ /\?/,
+            'found placeholder in select count query' );
+
+        ok( $users_obj->BuildSelectQuery( PreferBind => 0 ) !~ /\?/,
+            'no placeholder in select query' );
+        ok( $users_obj->BuildSelectCountQuery( PreferBind => 0 ) !~ /\?/,
+            'no placeholder in select count query' );
+        $DBIx::SearchBuilder::PREFER_BIND = 0;
+        ok( $users_obj->BuildSelectQuery      !~ /\?/, 'no placeholder in select query' );
+        ok( $users_obj->BuildSelectCountQuery !~ /\?/, 'no placeholder in select count query' );
+
+        cleanup_schema( 'TestApp', $handle );
+
+    }
+}    # SKIP, foreach blocks
+
+1;
+
+package TestApp;
+
+sub schema_sqlite {
+    [   q{
+CREATE TABLE Users (
+    id integer primary key,
+    Login varchar(36)
+) },
+        q{
+CREATE TABLE UsersToGroups (
+    id integer primary key,
+    UserId  integer,
+    GroupId integer
+) },
+        q{
+CREATE TABLE Groups (
+    id integer primary key,
+    Name varchar(36)
+) },
+    ]
+}
+
+sub schema_mysql {
+    [   q{
+CREATE TEMPORARY TABLE Users (
+    id integer primary key AUTO_INCREMENT,
+    Login varchar(36)
+) },
+        q{
+CREATE TEMPORARY TABLE UsersToGroups (
+    id integer primary key AUTO_INCREMENT,
+    UserId  integer,
+    GroupId integer
+) },
+        q{
+CREATE TEMPORARY TABLE `Groups` (
+    id integer primary key AUTO_INCREMENT,
+    Name varchar(36)
+) },
+    ]
+}
+
+sub schema_pg {
+    [   q{
+CREATE TEMPORARY TABLE Users (
+    id serial primary key,
+    Login varchar(36)
+) },
+        q{
+CREATE TEMPORARY TABLE UsersToGroups (
+    id serial primary key,
+    UserId integer,
+    GroupId integer
+) },
+        q{
+CREATE TEMPORARY TABLE Groups (
+    id serial primary key,
+    Name varchar(36)
+) },
+    ]
+}
+
+sub schema_oracle {
+    [   "CREATE SEQUENCE Users_seq",
+        "CREATE TABLE Users (
+        id integer CONSTRAINT Users_Key PRIMARY KEY,
+        Login varchar(36)
+    )",
+        "CREATE SEQUENCE UsersToGroups_seq",
+        "CREATE TABLE UsersToGroups (
+        id integer CONSTRAINT UsersToGroups_Key PRIMARY KEY,
+        UserId integer,
+        GroupId integer
+    )",
+        "CREATE SEQUENCE Groups_seq",
+        "CREATE TABLE Groups (
+        id integer CONSTRAINT Groups_Key PRIMARY KEY,
+        Name varchar(36)
+    )",
+    ]
+}
+
+sub cleanup_schema_oracle {
+    [   "DROP SEQUENCE Users_seq",
+        "DROP TABLE Users",
+        "DROP SEQUENCE Groups_seq",
+        "DROP TABLE Groups",
+        "DROP SEQUENCE UsersToGroups_seq",
+        "DROP TABLE UsersToGroups",
+    ]
+}
+
+package TestApp::User;
+
+use base $ENV{SB_TEST_CACHABLE}
+    ? qw/DBIx::SearchBuilder::Record::Cachable/
+    : qw/DBIx::SearchBuilder::Record/;
+
+sub _Init {
+    my $self   = shift;
+    my $handle = shift;
+    $self->Table('Users');
+    $self->_Handle($handle);
+}
+
+sub _ClassAccessible {
+    {
+
+        id    => { read => 1, type  => 'int(11)' },
+        Login => { read => 1, write => 1, type => 'varchar(36)' },
+
+    }
+}
+
+sub init_data {
+    return (
+        ['Login'],
+
+        ['Gandalf'],
+        ["Bilbo\\Baggins"],
+        ["Baggins' Frodo"],
+    );
+}
+
+package TestApp::Users;
+
+use base qw/DBIx::SearchBuilder/;
+
+sub _Init {
+    my $self = shift;
+    $self->SUPER::_Init( Handle => shift );
+    $self->Table('Users');
+}
+
+sub NewItem {
+    my $self = shift;
+    return TestApp::User->new( $self->_Handle );
+}
+
+1;
+
+package TestApp::Group;
+
+use base $ENV{SB_TEST_CACHABLE}
+    ? qw/DBIx::SearchBuilder::Record::Cachable/
+    : qw/DBIx::SearchBuilder::Record/;
+
+sub _Init {
+    my $self   = shift;
+    my $handle = shift;
+    $self->Table('Groups');
+    $self->_Handle($handle);
+}
+
+sub _ClassAccessible {
+    {   id   => { read => 1, type  => 'int(11)' },
+        Name => { read => 1, write => 1, type => 'varchar(36)' },
+    }
+}
+
+sub init_data {
+    return (
+        ['Name'],
+
+        ["Shire's Bag End"],
+        ['The Fellowship of the Ring'],
+    );
+}
+
+package TestApp::Groups;
+
+use base qw/DBIx::SearchBuilder/;
+
+sub _Init {
+    my $self = shift;
+    $self->SUPER::_Init( Handle => shift );
+    $self->Table('Groups');
+}
+
+sub NewItem { return TestApp::Group->new( (shift)->_Handle ) }
+
+1;
+
+package TestApp::UsersToGroup;
+
+use base $ENV{SB_TEST_CACHABLE}
+    ? qw/DBIx::SearchBuilder::Record::Cachable/
+    : qw/DBIx::SearchBuilder::Record/;
+
+sub _Init {
+    my $self   = shift;
+    my $handle = shift;
+    $self->Table('UsersToGroups');
+    $self->_Handle($handle);
+}
+
+sub _ClassAccessible {
+    {
+
+        id      => { read => 1, type => 'int(11)' },
+        UserId  => { read => 1, type => 'int(11)' },
+        GroupId => { read => 1, type => 'int(11)' },
+    }
+}
+
+sub init_data {
+    return (
+        [ 'GroupId', 'UserId' ],
+
+        # Shire
+        [ 1, 2 ],
+        [ 1, 3 ],
+
+        # Fellowship of the Ring
+        [ 2, 1 ],
+        [ 2, 3 ],
+    );
+}
+
+package TestApp::UsersToGroups;
+
+use base qw/DBIx::SearchBuilder/;
+
+sub _Init {
+    my $self = shift;
+    $self->Table('UsersToGroups');
+    return $self->SUPER::_Init( Handle => shift );
+}
+
+sub NewItem { return TestApp::UsersToGroup->new( (shift)->_Handle ) }
+
+1;

commit 161a7a3ce537edbd2c7cb4b861af87c5b140f07c
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Aug 30 04:19:13 2021 +0800

    Support bind values for searches
    
    This is mainly to make database(especially Oracle) happy and cache
    plans, which improves performance.

diff --git a/lib/DBIx/SearchBuilder.pm b/lib/DBIx/SearchBuilder.pm
index 2356f3b..3e658e9 100755
--- a/lib/DBIx/SearchBuilder.pm
+++ b/lib/DBIx/SearchBuilder.pm
@@ -10,6 +10,7 @@ use Clone qw();
 use Encode qw();
 use Scalar::Util qw(blessed);
 use DBIx::SearchBuilder::Util qw/ sorted_values /;
+our $PREFER_BIND = $ENV{SB_PREFER_BIND} // 1;
 
 =head1 NAME
 
@@ -151,6 +152,7 @@ sub CleanSlate {
         group_by
         columns
         query_hint
+        _bind_values
     );
 
     #we have no limit statements. DoSearch won't work.
@@ -238,7 +240,7 @@ sub _DoSearch {
     delete $self->{'items'};
     $self->{'itemscount'} = 0;
 
-    my $records = $self->_Handle->SimpleQuery($QueryString);
+    my $records = $self->_Handle->SimpleQuery( $QueryString, @{ $self->{_bind_values} || [] } );
     return 0 unless $records;
 
     while ( my $row = $records->fetchrow_hashref() ) {
@@ -294,7 +296,7 @@ sub _DoCount {
     my $all  = shift || 0;
 
     my $QueryString = $self->BuildSelectCountQuery();
-    my $records     = $self->_Handle->SimpleQuery($QueryString);
+    my $records     = $self->_Handle->SimpleQuery( $QueryString, @{ $self->{_bind_values} || [] } );
     return 0 unless $records;
 
     my @row = $records->fetchrow_array();
@@ -353,7 +355,7 @@ Build up all of the joins we need to perform this query.
 sub _BuildJoins {
     my $self = shift;
 
-        return ( $self->_Handle->_BuildJoins($self) );
+    return ( $self->_Handle->_BuildJoins($self, @_) );
 
 }
 
@@ -419,19 +421,25 @@ sub _isLimited {
 
 
 
-=head2 BuildSelectQuery
+=head2 BuildSelectQuery PreferBind => 1|0
 
 Builds a query string for a "SELECT rows from Tables" statement for this SearchBuilder object
 
+If C<PreferBind> is true, the generated query will use bind variables where
+possible. If C<PreferBind> is not passed, it defaults to package variable
+C<$DBIx::SearchBuilder::PREFER_BIND>, which defaults to
+C<$ENV{SB_PREFER_BIND}>(if it's defined) or true.
+
 =cut
 
 sub BuildSelectQuery {
     my $self = shift;
+    my %args = ( PreferBind => $PREFER_BIND, @_ );
 
     # The initial SELECT or SELECT DISTINCT is decided later
 
-    my $QueryString = $self->_BuildJoins . " ";
-    $QueryString .= $self->_WhereClause . " "
+    my $QueryString = $self->_BuildJoins(%args) . " ";
+    $QueryString .= $self->_WhereClause(%args) . " "
       if ( $self->_isLimited > 0 );
 
     my $QueryHint = $self->QueryHintFormatted;
@@ -461,7 +469,7 @@ sub BuildSelectQuery {
 
 
 
-=head2 BuildSelectCountQuery
+=head2 BuildSelectCountQuery PreferBind => 1|0
 
 Builds a SELECT statement to find the number of rows this SearchBuilder object would find.
 
@@ -469,12 +477,13 @@ Builds a SELECT statement to find the number of rows this SearchBuilder object w
 
 sub BuildSelectCountQuery {
     my $self = shift;
+    my %args = ( PreferBind => $PREFER_BIND, @_ );
 
     #TODO refactor DoSearch and DoCount such that we only have
     # one place where we build most of the querystring
-    my $QueryString = $self->_BuildJoins . " ";
+    my $QueryString = $self->_BuildJoins(%args) . " ";
 
-    $QueryString .= $self->_WhereClause . " "
+    $QueryString .= $self->_WhereClause(%args) . " "
       if ( $self->_isLimited > 0 );
 
 
@@ -640,7 +649,7 @@ sub DistinctFieldValues {
     }
 
     my $dbh = $self->_Handle->dbh;
-    my $list = $dbh->selectcol_arrayref( $query_string, { MaxRows => $args{'Max'} } );
+    my $list = $dbh->selectcol_arrayref( $query_string, { MaxRows => $args{'Max'} }, @{ $self->{_bind_values} || [] } );
     return $list? @$list : ();
 }
 
@@ -877,7 +886,7 @@ sub Limit {
                     warn "Collection in '$args{OPERATOR}' with more than one column selected, using first";
                     splice @{ $args{'VALUE'}{'columns'} }, 1;
                 }
-                $args{'VALUE'} = '('. $args{'VALUE'}->BuildSelectQuery .')';
+                $args{'VALUE'} = '('. $args{'VALUE'}->BuildSelectQuery(PreferBind => 0) .')';
                 $args{'QUOTEVALUE'} = 0;
             }
             elsif ( ref $args{'VALUE'} ) {
@@ -1061,7 +1070,7 @@ sub _WhereClause {
     #Go through all the generic restrictions and build up the "generic_restrictions" subclause
     # That's the only one that SearchBuilder builds itself.
     # Arguably, the abstraction should be better, but I don't really see where to put it.
-    $self->_CompileGenericRestrictions();
+    $self->_CompileGenericRestrictions(@_);
 
     #Go through all restriction types. Build the where clause from the
     #Various subclauses.
@@ -1081,6 +1090,7 @@ sub _WhereClause {
 
 sub _CompileGenericRestrictions {
     my $self = shift;
+    my %args = @_;
 
     my $result = '';
     #Go through all the restrictions of this type. Buld up the generic subclause
@@ -1092,6 +1102,14 @@ sub _CompileGenericRestrictions {
                 $result .= ' '. $entry . ' ';
             }
             else {
+                if ( $args{PreferBind} ) {
+                    my ( $placeholder, @bind_values ) = $self->_ExtractBindValues( $entry->{value} );
+                    if ( $placeholder ) {
+                        push @{ $self->{_bind_values} }, @bind_values;
+                        $result .= join ' ', @{$entry}{qw(field op)}, $placeholder;
+                        next;
+                    }
+                }
                 $result .= join ' ', @{$entry}{qw(field op value)};
             }
         }
@@ -1907,6 +1925,27 @@ DEPRECATED AND DOES NOTHING.
 
 sub ImportRestrictions { }
 
+
+sub _ExtractBindValues {
+    my $self  = shift;
+    my $value = shift;
+    my $placeholder;
+    my @bind_values;
+    if ( $value =~ /^\d+$/ ) {
+        $placeholder = '?';
+        push @bind_values, $value;
+    }
+    elsif ( $value =~ /^E?'.*'$/i ) {
+        $placeholder = '?';
+        push @bind_values, $self->_Handle->Dequote($value);
+    }
+    elsif ( $value =~ /^\s*\(\s*(?!SELECT)(.+)\)\s*$/is ) {
+        push @bind_values, $self->_Handle->SplitAndDequote($1);
+        $placeholder = '(' . join( ', ', ('?') x @bind_values ) . ')';
+    }
+    return ( $placeholder, @bind_values );
+}
+
 # not even documented
 sub DEBUG { warn "DEBUG is deprecated" }
 
diff --git a/lib/DBIx/SearchBuilder/Handle.pm b/lib/DBIx/SearchBuilder/Handle.pm
index ed49ff7..e128071 100755
--- a/lib/DBIx/SearchBuilder/Handle.pm
+++ b/lib/DBIx/SearchBuilder/Handle.pm
@@ -1222,6 +1222,7 @@ sub _NormalJoin {
 sub _BuildJoins {
     my $self = shift;
     my $sb   = shift;
+    my %args = @_;
 
     $self->OptimizeJoins( SearchBuilder => $sb );
     my $table = $self->{'QuoteTableNames'} ? $self->QuoteName($sb->Table) : $sb->Table;
@@ -1230,6 +1231,7 @@ sub _BuildJoins {
     my %processed = map { /^\S+\s+(\S+)$/; $1 => 1 } @{ $sb->{'aliases'} };
     $processed{'main'} = 1;
 
+    $sb->{_bind_values} = [];
     # get a @list of joins that have not been processed yet, but depend on processed join
     my $joins = $sb->{'left_joins'};
     while ( my @list =
@@ -1245,9 +1247,24 @@ sub _BuildJoins {
 
             $join_clause .= $meta->{'alias_string'} . " ON ";
             my @tmp = map {
-                    ref($_)?
-                        $_->{'field'} .' '. $_->{'op'} .' '. $_->{'value'}:
+                    if ( ref $_ ) {
+                        if ( $args{PreferBind} ) {
+                            my ( $placeholder, @bind_values ) = $sb->_ExtractBindValues( $_->{'value'} );
+                            if ( $placeholder ) {
+                                push @{ $sb->{_bind_values} }, @bind_values;
+                                $_->{'field'} . ' ' . $_->{'op'} . ' ' . $placeholder;
+                            }
+                            else {
+                                $_->{'field'} .' '. $_->{'op'} .' '. $_->{'value'};
+                            }
+                        }
+                        else {
+                            $_->{'field'} .' '. $_->{'op'} .' '. $_->{'value'};
+                        }
+                    }
+                    else {
                         $_
+                    }
                 }
                 map { ('(', @$_, ')', $aggregator) } sorted_values($meta->{'criteria'});
             pop @tmp;
@@ -1813,6 +1830,98 @@ sub DequoteName {
     return $name;
 }
 
+=head2 Dequote
+
+Undo the quote effects for quoted values
+
+=cut
+
+sub Dequote {
+    my ( $self, $value ) = @_;
+    if ( $value && $value =~ /^(E?)'(.*)'$/i ) {
+        $value = $2;
+        if ($1) {
+            $value =~ s!\\(.)!$1!g;
+        }
+        else {
+            $value =~ s!''!'!g;
+        }
+    }
+    return $value;
+}
+
+=head2 SplitAndDequote
+
+Split comma separated quoted values and return a list of dequoted values.
+
+This is useful to parse value of C<IN> operator.
+
+=cut
+
+sub SplitAndDequote {
+    my $self                = shift;
+    my $string              = shift;
+    my $default_escape_char = shift || q{'};
+    return $string unless defined $string;
+
+    my @chars       = split //, $string;
+    my $value       = '';
+    my $escape_char = $default_escape_char;
+
+    my @values;
+    my $in = 0;    # keep state in the loop: is it in a value?
+    while ( defined( my $c = shift @chars ) ) {
+        my $escaped;
+        if ( $c eq $escape_char && $in ) {
+            if ( $escape_char eq q{'} ) {
+                if ( ( $chars[0] || '' ) eq q{'} ) {
+                    $c       = shift @chars;
+                    $escaped = 1;
+                }
+            }
+            else {
+                $c       = shift @chars;
+                $escaped = 1;
+            }
+        }
+
+        if ($in) {
+            if ( $c eq q{'} ) {
+                if ( !$escaped ) {
+                    push @values, $value;
+                    $in          = 0;
+                    $value       = '';
+                    $escape_char = $default_escape_char;
+                    next;
+                }
+            }
+            $value .= $c;
+        }
+        else {
+            if ( $c eq q{'} ) {
+                $in = 1;
+            }
+            elsif ( $c eq 'E' ) {
+                $escape_char = '\\';
+            }
+            elsif ( $c =~ /[-\d]/ ) {
+                $value .= $c;
+                while ( my $next = shift @chars ) {
+                    if ( $next =~ /\d/ ) {
+                        $value .= $c;
+                    }
+                    else {
+                        push @values, $value;
+                        $value = '';
+                        last;
+                    }
+                }
+            }
+        }
+    }
+    return @values;
+}
+
 sub _RequireQuotedTables { return 0 };
 
 =head2 DESTROY
diff --git a/lib/DBIx/SearchBuilder/Handle/mysql.pm b/lib/DBIx/SearchBuilder/Handle/mysql.pm
index 0e24364..b6de8b6 100755
--- a/lib/DBIx/SearchBuilder/Handle/mysql.pm
+++ b/lib/DBIx/SearchBuilder/Handle/mysql.pm
@@ -323,6 +323,22 @@ sub DequoteName {
     return $name;
 }
 
+sub Dequote {
+    my ($self, $value) = @_;
+    if ( $value && $value =~ /^'(.*)'$/ ) {
+        $value = $1;
+        $value =~ s!\\(.)!$1!g;
+    }
+    return $value;
+}
+
+sub SplitAndDequote {
+    my $self  = shift;
+    my $value = shift;
+    return $self->SUPER::SplitAndDequote( $value, '\\' );
+}
+
+
 sub _IsMariaDB {
     my $self = shift;
 

-----------------------------------------------------------------------


hooks/post-receive
-- 
dbix-searchbuilder


More information about the Bps-public-commit mailing list