X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FModel%2FDBIC%2FSchema.pm;h=161021cc69dce7f1c2c58a3a62696438a10ba18b;hb=45b101914d8e7130178e9f9748deda25992b6317;hp=4b829c4582834f841b805f908b2c7b360735dc77;hpb=0488aabe2ad8552c9dacc0937cfb03e87fdaf2a0;p=catagits%2FCatalyst-Model-DBIC-Schema.git diff --git a/lib/Catalyst/Model/DBIC/Schema.pm b/lib/Catalyst/Model/DBIC/Schema.pm index 4b829c4..161021c 100644 --- a/lib/Catalyst/Model/DBIC/Schema.pm +++ b/lib/Catalyst/Model/DBIC/Schema.pm @@ -5,18 +5,20 @@ use mro 'c3'; extends 'Catalyst::Model'; with 'CatalystX::Component::Traits'; -our $VERSION = '0.56'; +our $VERSION = '0.61'; $VERSION = eval $VERSION; use namespace::autoclean; use Carp::Clan '^Catalyst::Model::DBIC::Schema'; use Data::Dumper; use DBIx::Class (); +use Module::Runtime qw/use_module/; use Catalyst::Model::DBIC::Schema::Types - qw/ConnectInfo LoadedClass SchemaClass Schema/; + qw/ConnectInfo SchemaClass Schema/; -use MooseX::Types::Moose qw/ArrayRef Str ClassName Undef/; +use MooseX::Types::Moose qw/Str/; +use MooseX::Types::LoadableClass qw/LoadableClass/; =head1 NAME @@ -417,7 +419,6 @@ See L and L. has schema_class => ( is => 'ro', isa => SchemaClass, - coerce => 1, required => 1 ); @@ -434,9 +435,8 @@ has model_name => ( has _default_cursor_class => ( is => 'ro', - isa => LoadedClass, + isa => LoadableClass, default => 'DBIx::Class::Storage::DBI::Cursor', - coerce => 1 ); has schema => (is => 'rw', isa => Schema); @@ -467,7 +467,7 @@ sub BUILD { } if (exists $self->connect_info->{cursor_class}) { - eval { Class::MOP::load_class($self->connect_info->{cursor_class}) } + eval { use_module($self->connect_info->{cursor_class}) } or croak "invalid connect_info: Cannot load your cursor_class" . " ".$self->connect_info->{cursor_class}.": $@"; } @@ -676,7 +676,7 @@ ozum: Ozum Eldogan C Pavel I. Shaydo C -t0m: Tomas Doran +SineSwiper: Brendan Byrd =head1 COPYRIGHT