X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FTraitFor%2FModel%2FDBIC%2FSchema%2FCaching.pm;h=f1d5162c11627c03af457afa5a0464f530275b0b;hb=45b101914d8e7130178e9f9748deda25992b6317;hp=3fd062dedcecb348516f6a00e55d3f24693f825a;hpb=fb691af97ffd7b3043d2d536db478af6219896f4;p=catagits%2FCatalyst-Model-DBIC-Schema.git diff --git a/lib/Catalyst/TraitFor/Model/DBIC/Schema/Caching.pm b/lib/Catalyst/TraitFor/Model/DBIC/Schema/Caching.pm index 3fd062d..f1d5162 100644 --- a/lib/Catalyst/TraitFor/Model/DBIC/Schema/Caching.pm +++ b/lib/Catalyst/TraitFor/Model/DBIC/Schema/Caching.pm @@ -3,8 +3,8 @@ package Catalyst::TraitFor::Model::DBIC::Schema::Caching; use namespace::autoclean; use Moose::Role; use Carp::Clan '^Catalyst::Model::DBIC::Schema'; -use Catalyst::Model::DBIC::Schema::Types 'CursorClass'; -use MooseX::Types::Moose qw/Int Str/; +use MooseX::Types::Moose 'Int'; +use Module::Runtime 'use_module'; =head1 NAME @@ -33,6 +33,7 @@ loaded. A possible configuration would look like this: class Cache::FastMmap unlink_on_exit 1 + share_file /tmp/myapp_share @@ -63,7 +64,7 @@ after setup => sub { my $cursor_class = $self->connect_info->{cursor_class} || 'DBIx::Class::Cursor::Cached'; - unless (eval { Class::MOP::load_class($cursor_class) }) { + unless (eval { use_module($cursor_class) }) { carp "Caching disabled, cannot load cursor class" . " $cursor_class: $@"; return; @@ -110,10 +111,15 @@ L, L =head1 AUTHOR -Rafael Kitover, C +See L and +L. =head1 COPYRIGHT +See L. + +=head1 LICENSE + This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.