Refresh %inc files when updated on disk
# During each request, call this once to refresh changed modules: Module::Refresh->refresh; # Each night at midnight, you automatically download the latest # Acme::Current from CPAN. Use this snippet to make your running # program pick it up off disk: $refresher->refresh_module('Acme/Current.pm');
This module is a generalization of the functionality provided by Apache::StatINC and Apache::Reload. It's designed to make it easy to do simple iterative development when working in a persistent environment.
It does not require mod_perl.
Initialize the module refresher.
Refresh all modules that have mtimes on disk newer than the newest ones we've got. Calls \*(C`new\*(C' to initialize the cache if it had not yet been called.
Specifically, it will renew any module that was loaded before the previous call to \*(C`refresh\*(C' (or \*(C`new\*(C') and has changed on disk since then. If a module was both loaded for the first time and changed on disk between the previous call and this one, it will not be reloaded by this call (or any future one); you will need to update the modification time again (by using the Unix \*(C`touch\*(C' command or making a change to it) in order for it to be reloaded. If $module has been modified on disk, refresh it. Otherwise, do nothing Refresh a module. It doesn't matter if it's already up to date. Just do it.
Note that it only accepts module names like \*(C`Foo/Bar.pm\*(C', not \*(C`Foo::Bar\*(C'. Remove a module from %INC, and remove all subroutines defined in it. Get the last modified time of $file in seconds since the epoch; Updates the cached \*(L"last modified\*(R" time for $file. Wipe out subs defined in $file.
When we walk the symbol table to whack reloaded subroutines, we don't have a good way to invalidate the symbol table properly, so we mess up on things like global variables that were previously set.
Apache::StatINC, Module::Reload
Copyright 2004,2011 by Jesse Vincent <[email protected]>, Audrey Tang <[email protected]>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See <http://www.perl.com/perl/misc/Artistic.html>