Mercurial > pub > Impl

changeset 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 2879cdb6b8cd
children 4ac39b9e2ca4
files Lib/IMPL/AppException.pm
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
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