# HG changeset patch
# User sergey
# Date 1356698583 -14400
# Node ID 93963ec449c5de235b9863780280a1efe99f6438
# Parent  2879cdb6b8cd15534f90ac6521ef5cb731e07017
sync

diff -r 2879cdb6b8cd -r 93963ec449c5 Lib/IMPL/AppException.pm
--- 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