SPOPS::Tool::ReadOnly - Make a particular object read-only
# 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.
save()
remove()
behavior_factory()
Installs the behavior during the class generation process.
generate_persistence_methods()
Generates save() and remove() methods that just throw exceptions.
None known.
Nothing known.
SPOPS::Manual::ObjectRules
SPOPS::ClassFactory
Copyright (c) 2001-2004 intes.net, inc.. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Chris Winters <chris@cwinters.com>
To install SPOPS, copy and paste the appropriate command in to your terminal.
cpanm
cpanm SPOPS
CPAN shell
perl -MCPAN -e shell install SPOPS
For more information on module installation, please visit the detailed CPAN module installation guide.