view release on metacpan or  search on metacpan

lib/Bio/BioVeL/AsynchronousService.pm  view on Meta::CPAN

}

=item update 

The concrete child class needs to implement the update() method, which will check on
the process that was launched by launch(), and will update the status, e.g. from RUNNING
to DONE or ERROR.

=cut

sub update { 
	my $self   = shift;
	my $log    = $self->logger;
	my $status = DONE;
	if ( my $pid = $self->pid ) {
		my $timestamp = $self->timestamp;
		my $pt = Proc::ProcessTable->new;
		PROC: for my $proc ( @{ $pt->table } ) {
			if ( $proc->pid == $pid ) {
				if ( abs( $timestamp - $proc->start ) < 2 ) {
					$log->info("still running: ".$proc->cmndline);