view release on metacpan or  search on metacpan

lib/ResourcePool/Command/Execute.pm  view on Meta::CPAN

sub getException($) {
	my ($self) = @_;
	return $self->{InitException} 
		|| $self->{PreExecuteException}
		|| $self->{ExecuteException}
		|| $self->{PostExecuteException}
		|| $self->{CleanupException};
}

sub ok($) {
	my ($self) = @_;

	return !$self->getInitException()
		&& !$self->getPreExecuteException()
		&& !$self->getExecuteException
		&& !$self->getPostExecuteException;
}

#sub revertOk($) {
#	my ($self) = @_;

t/35CommandExecute.t  view on Meta::CPAN

sub new($$) {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self = {};
	bless($self, $class);
	$self->{ex} = shift;
	return $self;
}

sub ex($) {
	my ($self) = @_;
	return $self->{ex};
}

package MyTestCommandFunkyException;

push @MyTestCommandFunkyException::ISA, qw(MyTestCommandOK);

sub execute($$) {
    my ($self, @args) = @_;