SPOPS::Tool::ReadOnly 0.87

SPOPS::Tool::ReadOnly is a Perl module to make a particular object read-only.

SYNOPSIS

# Load information with read-only rule

my $spops = {
class => 'This::Class',
isa => [ 'SPOPS::DBI' ],
field => [ 'email', 'language', 'country' ],
id_field => 'email',
base_table => 'test_table',
rules_from => [ 'SPOPS::Tool::ReadOnly' ],
};
SPOPS::Initialize->process({ config => { test => $spops } });

# Fetch an object, modify it...
my $object = This::Class->fetch( 45 );
$object->{foo} = "modification";

# Trying to save the object throws an error:
# "This::Class is read-only; no changes allowed"
eval { $object->save };

This is a simple rule to ensure that save() and remove() calls to a particular class do not actually do any work. Instead they just result in a warning that the class is read-only.

METHODS

behavior_factory()

Installs the behavior during the class generation process.

generate_persistence_methods()

Generates save() and remove() methods that just throw exceptions.

Product's homepage

Requirements:

· Perl