File Coverage

blib/lib/App/CLI/Extension/Exception.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	16	16	100.0

package App::CLI::Extension::Exception;

=pod

=head1 NAME

App::CLI::Extension::Exception - for App::CLI exception module

=head1 VERSION

1.421

=cut

use strict;
use base qw(Error::Simple);

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__