1package # hide from PAUSE 2 DBIx::Class::CDBICompat::ReadOnly; 3 4use strict; 5use warnings; 6 7sub make_read_only { 8 my $proto = shift; 9 $proto->add_trigger("before_$_" => sub { shift->throw_exception("$proto is read only") }) 10 foreach qw/create delete update/; 11 return $proto; 12} 13 141; 15