1 package Object::Remote::WatchDog;
3 use Object::Remote::MiniLoop;
4 use Object::Remote::Logging qw ( :log :dlog );
7 has timeout => ( is => 'ro', required => 1 );
10 my ($orig, $self, @args) = @_;
13 return $WATCHDOG if defined $WATCHDOG;
14 log_trace { "Constructing new instance of global watchdog" };
15 return $WATCHDOG = $self->$orig(@args);
23 #if the Watchdog is killing the process we don't want any chance of the
24 #process not actually exiting and die could be caught by an eval which
25 #doesn't do us any good
26 log_error { sprintf("Watchdog has expired, terminating the process at file %s line %s", __FILE__, __LINE__ + 1); };
30 Dlog_debug { "Initializing watchdog with timeout of $_ seconds" } $self->timeout;
31 alarm($self->timeout);
34 #invoke at least once per timeout to stop
35 #the watchdog from killing the process
38 die "Attempt to reset the watchdog before it was constructed"
39 unless defined $WATCHDOG;
41 log_trace { "Watchdog has been reset" };
42 alarm($WATCHDOG->timeout);
45 #must explicitly call this method to stop the
46 #watchdog from killing the process - if the
47 #watchdog is lost because it goes out of scope
48 #it makes sense to still terminate the process