view release on metacpan or  search on metacpan

lib/App/CLI/Extension/Exception.pm  view on Meta::CPAN

our $VERSION = '1.421';

sub new {

	my($class, $message) = @_;
	chomp $message;

	#local $Error::Depth = $Error::Depth + 1;
	local $Error::Depth = $Error::Depth + 2;
	local $Error::Debug = 1;
	my $self = $class->SUPER::new($message);

	return $self;
}

1;

__END__

=head1 SEE ALSO