Why not adopt me?
NAME
Class::Data::Reloadable - inheritable, overridable class data that survive reloads
VERSION
Version 0.01
SYNOPSIS
package Stuff;
use base qw(Class::Data::Inheritable);
# Set up DataFile as inheritable class data.
Stuff->mk_classdata('DataFile');
# Declare the location of the data file for this class.
Stuff->DataFile('/etc/stuff/data');
# ... reload Stuff within same interpreter
print Stuff->DataFile; # /etc/stuff/data
DESCRIPTION
A drop-in replacement for Class::Data::Inheritable, but subclasses can be reloaded without losing their class data. This is useful in mod_perl development, and may be useful elsewhere.
In mod_perl, Apache::Reload conveniently reloads modules that have been modified, rather than having to restart Apache. This works well unless the module stores class data that are not re-created during the reload. In this situation, you still need to restart the server, in order to rebuild the class data.
Saves many (if your code starts out buggy like mine) Apache restarts.
But only if you're strict about storing all class data using this mechanism.
See Class::Data::Inheritable for more examples.
METHODS
- mk_classdata
-
Creates a classdata slot, optionally setting a value into it.
$client->mk_classdata( 'foo' ); $client->classdata->foo( 'bar' ); # same thing: $client->mk_classdata( foo => 'bar' );
Note that during a reload, this method may be called again for an existing attribute. If so, any value passed with the method is silently ignored, in favour of whatever value was in the slot before the reload.
This also provides a
_foo_accessor
alias. - AUTOLOAD
-
If the class has been reloaded, and if before the reload, other classes have called
mk_classdata
on this class, then some accessors will be missing after the reload. AUTOLOAD replaces these methods the first time they are called.Redispatches (via NEXT) to any
AUTOLOAD
method further up the chain if no attribute is found.
AUTHOR
David Baird, <cpan@riverside-cms.co.uk>
BUGS
Please report any bugs or feature requests to bug-class-data-separated@rt.cpan.org
, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
COPYRIGHT & LICENSE
Copyright 2004 David Baird, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.