File Coverage

blib/lib/ResourcePool/Command/NoFailoverException.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	25	27	92.5

#*********************************************************************
#*** ResourcePool::Command::NoFailoverException
#*** Copyright (c) 2002,2003 by Markus Winand
#*** $Id: NoFailoverException.pm,v 1.7 2013-04-16 10:14:44 mws Exp $
#*********************************************************************
package ResourcePool::Command::NoFailoverException;

use strict;
use vars qw($VERSION);
use ResourcePool::Command::Exception;
$VERSION = "1.0107";

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

sub rootException($) {
	my ($self) = @_;
	return ResourcePool::Command::Exception::rootException($self);
}

1;