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