NAME

Sub::Timebound - Perl extension for timebound computations

SYNOPSIS

             use Sub::Timebound;

             sub fun 
             {
                my $i = shift;
                if ($i =~ /7$/) {
                        die "Simulated internal error\n";
                }
                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
             }

DESCRIPTION

        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

EXPORT

        timeboundretry()

SEE ALSO

        Proc::Reliable is a similar module that addresses external processes

AUTHOR

        Ramana Mokkapati, E<lt>mvr@cpan.org<gt>

COPYRIGHT AND LICENSE

        Copyright (C) 2005 by Ramana Mokkapati <mvr@cpan.org>

        This library is free software; you can redistribute it and/or modify
        it under the same terms as Perl itself, either Perl version 5.8.0 or,
        at your option, any later version of Perl 5 you may have available.