La suscripción:: Timebound es una extensión Perl para cálculos timebound.

SINOPSIS

use la Suscripción:: Timebound;

diversión de suscripción
{
mi $i = cambio;
si ($i = ~/7$/) {
muera "errorn interno simulado";
}
mientras ($i) {
$i-;
}
vuelva "Todo está bien";
}

mi $x = timeboundretry (10, 3, 5, &fun, 10);
### Las devoluciones {valoran =>..., estado => 0 (FRACASO)/1 (ÉXITO)}
### el valor es el valor de devolución de la diversión ()

si ($x-> {estado}) {
# ÉXITO
$x-> {valor}
} más {
# FRACASO
}

El módulo exporta "timeboundretry" - esto es una envoltura que mira una llamada de función.

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


[TimeAllocated] - Segundos asignados [a CodeRef] para completar
[NumberOfAttempts] - Número de tentativas hechas [a CodeRef]
[PauseBetweenAttempts] - Segundos para esperar antes de hacer tentativas subsecuentes
[CodeRef] - Referencia a subrutina
[Param1]... - Parámetros a subrutina