/ 
Script-NeedsRestart-0.02
River stage zero No dependents
/ Script::NeedsRestart

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.