X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FReadOnly.pm;h=669a76d7f3b0326ecb5247f20bea1fc1c743213b;hb=7da0602386cfd7c10aa24cfa053b32bdcb27c081;hp=fe1d9024736404768af30068318cb509e9ab2f1f;hpb=a137305427594f63407bbf2a354b96578f682294;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/ReadOnly.pm b/lib/DBIx/Class/CDBICompat/ReadOnly.pm
index fe1d902..669a76d 100644
--- a/lib/DBIx/Class/CDBICompat/ReadOnly.pm
+++ b/lib/DBIx/Class/CDBICompat/ReadOnly.pm
@@ -1,11 +1,12 @@
-package DBIx::Class::CDBICompat::ReadOnly;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::ReadOnly;
 
 use strict;
 use warnings;
 
 sub make_read_only {
   my $proto = shift;
-  $proto->add_trigger("before_$_" => sub { shift->throw("$proto is read only") })
+  $proto->add_trigger("before_$_" => sub { shift->throw_exception("$proto is read only") })
     foreach qw/create delete update/;
   return $proto;
 }