Mercurial > pub > Impl

diff Lib/IMPL/AppException.pm @ 261:93963ec449c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Fri, 28 Dec 2012 16:43:03 +0400
parents 0a228a35645c
children 89179bb8c388
line wrap: on
line diff
--- a/Lib/IMPL/AppException.pm	Tue Dec 25 02:18:59 2012 +0400
+++ b/Lib/IMPL/AppException.pm	Fri Dec 28 16:43:03 2012 +0400
@@ -27,7 +27,6 @@
 
 sub new {
 	my $self = shift;
-	local $Carp::CarpLevel = 0;
 	
 	my $instance = $self->next::method(@_);
     
@@ -55,4 +54,10 @@
 	return join("\n", $this->message, $this->callStack);
 }
 
+sub throw {
+	my $self = shift;
+	
+	die $self->new(@_);
+}
+
 1;
\ No newline at end of file