File Coverage

blib/lib/Script/NeedsRestart.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	5	10	50.0
condition	2	3	66.6
subroutine	6	7	85.7
pod	4	4	100.0
total	38	47	80.8

package Script::NeedsRestart;

use warnings;
use strict;

our $VERSION = '0.02';
our $logger;
our $SLEEP_BEFORE_RESTART = 2;

our @exec_self_cmd = ($^X, (map {'-I' . $_} @INC), $0, @ARGV);

sub _log {return $logger;}
sub set_logger {$logger = $_[1];}

sub restart_if_needed {
    my ($self) = @_;

    if ($self->check_mtimes) {
        sleep($SLEEP_BEFORE_RESTART);
        $self->restart();
    }

    return;
}

sub check_mtimes {
    my ($self) = @_;

    my @files_to_check = ($0, values(%INC));
    foreach my $file (@files_to_check) {
        if ((-f $file) && (-M $file < 0)) {
            $self->_log
                && $self->_log->info('file ' . $file . ' modified');
            return $file;
        }
    }

    return 0;
}

sub restart {
    my ($self) = @_;

    $self->_log
        && $self->_log->debug('exec `' . join(' ', @exec_self_cmd) . '`');

    exec(@exec_self_cmd)
        or die('exec of `' . join(' ', @exec_self_cmd) . '` failed');
}

1;

__END__