/usr/share/perl5/DBIx/Class/CDBICompat/ReadOnly.pm is in libdbix-class-perl 0.08196-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | package # hide from PAUSE
DBIx::Class::CDBICompat::ReadOnly;
use strict;
use warnings;
sub make_read_only {
my $proto = shift;
$proto->add_trigger("before_$_" => sub { shift->throw_exception("$proto is read only") })
foreach qw/create delete update/;
return $proto;
}
1;
|