X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FBase.pm;h=85b09f33663e7c9f385dd84cf9bedf00f870da97;hb=2b74a06bb8493df6e4bb15a445bd4bfb370d91c6;hp=3ebab77775626809c5129732d95b1415c1f72ced;hpb=6c2b21a548e7c03424fdd40eab124b44a08077fc;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 3ebab77..85b09f3 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -3,7 +3,6 @@ package DBIx::Class::Schema::Loader::Base;
 use strict;
 use warnings;
 use base qw/Class::Accessor::Grouped Class::C3::Componentised/;
-use namespace::autoclean;
 use Class::C3;
 use Carp::Clan qw/^DBIx::Class/;
 use DBIx::Class::Schema::Loader::RelBuilder;
@@ -22,6 +21,7 @@ use Scalar::Util 'looks_like_number';
 use File::Slurp 'slurp';
 use DBIx::Class::Schema::Loader::Utils 'split_name';
 require DBIx::Class;
+use namespace::clean;
 
 our $VERSION = '0.07001';
 
@@ -1236,7 +1236,7 @@ sub _dump_to_dir {
             $src_text.= qq|use Moose;\nuse MooseX::NonMoose;\nuse namespace::autoclean;|;
 
             # these options 'use base' which is compile time
-            if ($self->left_base_classes || $self->additional_base_classes) {
+            if (@{ $self->left_base_classes } || @{ $self->additional_base_classes }) {
                 $src_text .= qq|\nBEGIN { extends '$result_base_class' }\n\n|;
             }
             else {