X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FReadOnly.pm;h=e5949a9815aea21cbf96b1c40ce1ba42e79c23d1;hb=701da8c4d6f0b78ffc015085aa410a6cacfcdb40;hp=fe1d9024736404768af30068318cb509e9ab2f1f;hpb=39e54ad026643adc23699f2e187c0e71ec4b6532;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/ReadOnly.pm b/lib/DBIx/Class/CDBICompat/ReadOnly.pm index fe1d902..e5949a9 100644 --- a/lib/DBIx/Class/CDBICompat/ReadOnly.pm +++ b/lib/DBIx/Class/CDBICompat/ReadOnly.pm @@ -5,7 +5,7 @@ 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; }