-extends => 'SQL::Abstract' is deprecated

Author: damil

Changes

@@ -1,6 +1,8 @@
 Revision history for SQL-Abstract-More
 
 
+  - -extends => 'SQL::Abstract' is deprecated
+
 1.44 13.07.2025
   - accept table aliases in update() and delete() (djerius++)
 

lib/SQL/Abstract/More.pm

@@ -44,6 +44,10 @@ sub import {
     return;
   }
 
+  # inheriting from other parents is deprecated
+  $parent_sqla eq 'SQL::Abstract::Classic' 
+    or warn "inheriting from $parent_sqla is deprecated and will no longer be supported in future versions";
+
   # load the parent, inherit from it, import puke() and belch()
   eval qq{use parent '$parent_sqla';
           *puke  = \\&${parent_sqla}::puke;

t/01-sql_abstract_more.t

@@ -723,6 +723,19 @@ is_same_sql_bind(
 );
 
 
+# -in with empty array -- only works with SQLA::Classic
+if ($sqla->isa('SQL::Abstract::Classic')) {
+  ($sql, @bind) = $sqla->where({foo => {-in => []}});
+  is_same_sql_bind(
+    $sql, \@bind,
+    ' WHERE 0=1',
+    [],
+    "-in with empty array",
+  );
+}
+
+
+
 #----------------------------------------------------------------------
 # -in with objects
 #----------------------------------------------------------------------

t/08-no-import.t

@@ -7,7 +7,7 @@ require SQL::Abstract::More; # no "use" ... so no import()
 
 my $sqla = SQL::Abstract::More->new; # import() called implicitly through new()
 
-ok $sqla->isa('SQL::Abstract::Classic'), '@ISA was populated';
+ok $sqla->isa('SQL::Abstract::Classic') || $sqla->isa('SQL::Abstract'), '@ISA was populated';
 
 my ($sql, @bind) = $sqla->select(
   -columns  => [qw/bar/],