view release on metacpan or  search on metacpan

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

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__

=head1 SEE ALSO

L<App::CLI::Exception> L<Error::Simple>

=head1 AUTHOR

Akira Horimoto

=head1 COPYRIGHT AND LICENSE

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

Copyright (C) 2010 Akira Horimoto

=cut