X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAdmin.pm;h=7052fbfea36aa5487d4575b4630de1760947c79b;hb=1278e5f0200f8cd8bd4cf137ae7ed571f71e63c2;hp=25d2457c81d5c4bcca68cf79984dc82fb77ebc54;hpb=8f987bd57e1e4b01bfdeebd8a1878d689a9fbb98;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Admin.pm b/lib/DBIx/Class/Admin.pm index 25d2457..7052fbf 100644 --- a/lib/DBIx/Class/Admin.pm +++ b/lib/DBIx/Class/Admin.pm @@ -87,28 +87,13 @@ has 'schema' => ( sub _build_schema { my ($self) = @_; + require Class::MOP; - { - my @include_dirs = @{$self->include_dirs}; - local @INC = (@include_dirs, @INC); - Class::MOP::load_class($self->schema_class); - } - $self->connect_info->[3]->{ignore_version} =1; - return $self->schema_class->connect(@{$self->connect_info()} ); # , $self->connect_info->[3], { ignore_version => 1} ); + Class::MOP::load_class($self->schema_class); + $self->connect_info->[3]{ignore_version} = 1; + return $self->schema_class->connect(@{$self->connect_info}); } -=head2 include_dirs - -Extra include directories to look when loading C - -=cut - -has 'include_dirs' => ( - is => 'rw', - isa => 'ArrayRef', - default => sub {[]} -); - =head2 resultset a resultset from the schema to operate on