X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FReadOnly.pm;h=9bab1f4c80691cabf9b0109b766cf8ba7cf2fcd6;hp=669a76d7f3b0326ecb5247f20bea1fc1c743213b;hb=5e0eea3522876a30453af24097507198bbbc9409;hpb=d009cb7d393292037eff527a9f8bab93860224fb diff --git a/lib/DBIx/Class/CDBICompat/ReadOnly.pm b/lib/DBIx/Class/CDBICompat/ReadOnly.pm index 669a76d..9bab1f4 100644 --- a/lib/DBIx/Class/CDBICompat/ReadOnly.pm +++ b/lib/DBIx/Class/CDBICompat/ReadOnly.pm @@ -4,6 +4,8 @@ package # hide from PAUSE use strict; use warnings; +use base 'DBIx::Class'; + sub make_read_only { my $proto = shift; $proto->add_trigger("before_$_" => sub { shift->throw_exception("$proto is read only") })