Question

refreshing my question.

Sub::Attempts retries once it find the exception (die).
For me, I want the sub to retry when sub is returning the false value.

Please let me know what should I change to make it work?

Answer 1

If you want to use Sub::Attempts, just make a subroutine that modifies the one you have to make it die rather than return false:

sub die_on_failure {
    my $name = (caller).'::'.shift;
    my $glob = do {no strict 'refs'; \*$name};

    my $code = \&$glob;
    no warnings 'redefine';
    *$glob = sub {
        my $ret = &$code;
        $ret ? $ret : die "$name failed"
    }
}

Then just do:

die_on_failure 'your_sub_name';

before calling:

attempts 'your_sub_name', ...;