X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAdmin.pm;h=0eb6e0cf6d09b4e472e16690e1673ce6f37e01f1;hb=3334d204fcbbddedd73a7f63a285bdda9cb3e031;hp=b0d76b8ae054e2cbc266814e24aa8dc4a5dfd7a9;hpb=7b71391b3752ec823c7510403c6b59b0be4957ce;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Admin.pm b/lib/DBIx/Class/Admin.pm index b0d76b8..0eb6e0c 100644 --- a/lib/DBIx/Class/Admin.pm +++ b/lib/DBIx/Class/Admin.pm @@ -12,6 +12,7 @@ use MooseX::Types::Moose qw/Int Str Any Bool/; use DBIx::Class::Admin::Types qw/DBICConnectInfo DBICHashRef/; use MooseX::Types::JSON qw(JSON); use MooseX::Types::Path::Class qw(Dir File); +use MooseX::Types::LoadableClass qw(LoadableClass); use Try::Tiny; use JSON::Any qw(DWIW XS JSON); use namespace::autoclean; @@ -68,7 +69,7 @@ the class of the schema to load has 'schema_class' => ( is => 'ro', - isa => Str, + isa => LoadableClass, ); @@ -87,8 +88,6 @@ has 'schema' => ( sub _build_schema { my ($self) = @_; - require Class::MOP; - Class::MOP::load_class($self->schema_class); $self->connect_info->[3]{ignore_version} = 1; return $self->schema_class->connect(@{$self->connect_info}); }