Merge the last bits of indirect callchain optimization
[dbsrgits/DBIx-Class.git] / 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;