make sure @isa is populated even if import() was not called

Author: damil

lib/SQL/Abstract/More.pm

@@ -230,6 +230,11 @@ my %params_for_WITH = (
 
 sub new {
   my $class = shift;
+
+  # make sure @ISA is populated, in case import() was not already called
+  $class->import() if !@ISA;
+
+  # accept params either as hash or as hashref
   my %params = does($_[0], 'HASH') ? %{$_[0]} : @_;
 
   # extract params for this subclass

t/08-no-import.t

@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+use Test::More;
+use SQL::Abstract::Test import => [qw/is_same_sql_bind/];
+
+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';
+
+my ($sql, @bind) = $sqla->select(
+  -columns  => [qw/bar/],
+  -from     => 'Foo',
+  -where    => {bar => {">" => 123}},
+  -order_by => ['bar']
+);
+is_same_sql_bind(
+  $sql, \@bind,
+  "SELECT bar FROM Foo WHERE bar > ? ORDER BY bar", [123],
+  "select",
+);
+
+
+done_testing;
+
+