NAME

Script::NeedsRestart - checks mtime of script and it's included files

SYNOPSIS

            

              
              
use Script::NeedsRestart;
Script::NeedsRestart->set_logger($log);       # optional
while (1) {
    last if Script::NeedsRestart->check_mtimes;
     
    # or
     
    Script::NeedsRestart->restart_if_needed();
     
    # .... do something
    sleep(10);
}
            
          

DESCRIPTION

File modification time based checking of script and included files.

FUNCTIONS

check_mtimes

Scans script file and all included Perl modules in %INC for modification timestamp and returns true if any of the files have modification timestamp greater then the script start-up time.

In case scripts running via any of the daemon tools, check can be an indication when to terminate the loop to initiate auto restarted.

restart

re-exec current script

restart_if_needed

will re-exec current script if it or any dependent files changed.

set_logger

setting optional logger, if set, check_mtimes() and restart() will will log their events.

            

              
              
Script::NeedsRestart->set_logger($log);
            
          

AUTHOR

Jozef Kutej, <jkutej at cpan.org>

COPYRIGHT & LICENSE

Copyright 2009 Jozef Kutej, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.