Sub::Timebound 1.01

Sub::Timebound is a Perl extension for timebound computations.

SYNOPSIS

use Sub::Timebound;

sub fun
{
my $i = shift;
if ($i =~ /7$/) {
die "Simulated internal errorn";
}
while ($i) {
$i--;
}
return "All is well";
}

my $x = timeboundretry(10, 3, 5, &fun, 10);
### Returns { value => '...', status => 0(FAILURE)/1(SUCCESS) }
### 'value' is the return value of fun()

if ($x->{status}) {
# SUCCESS
$x->{value}
} else {
# FAILURE
}

Module exports "timeboundretry" - this is a wrapper that watches a function call.

my $x = timeboundretry([TimeAllocated], [NumberOfAttempts],
[PauseBetweenAttempts],[CodeRef],[Param1], [Param2], ...);


[TimeAllocated] - Seconds allocated to [CodeRef] to complete
[NumberOfAttempts] - Number of attempts made to [CodeRef]
[PauseBetweenAttempts] - Seconds to wait before making subsequent attempts
[CodeRef] - Reference to subroutine
[Param1]... - Parameters to subroutine

Product's homepage

Requirements:

· Perl