The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

ResourcePool::Command::Exception - An Exception for ResourcePool commands.

SYNOPSIS

 eval {
        $pool->execute($cmd);
 };
 
 if ($@) { # an exception happend
        my $ex = $@;
        my $rootException = $ex->rootException();
        my $nofailed = $ex->getExecutions();
 }

$ex->rootException

This method returns the exception which cause the execute to fail.

If the execution was started more then once (e.g. because of the MaxExecTry setting) this method returns the exception which occurred during the last attempt.

$ex->getExecutions

This method returns the number of executions done before the exception was propagated to the client.

This is usually 1 for ResourcePool::Command::NoFailoverExceptions or equal to MaxExecTry for other exceptions.

AUTHOR

    Copyright (C) 2001-2009 by Markus Winand <mws@fatalmind.com>

    This program is free software; you can redistribute it and/or
    modify it under the same terms as Perl itself.