lib/DBIx/Class/CDBICompat/ReadOnly.pm

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