Mercurial > pub > Impl

comparison 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
comparison
equal deleted inserted replaced
260:2879cdb6b8cd 261:93963ec449c5
25 ] 25 ]
26 }; 26 };
27 27
28 sub new { 28 sub new {
29 my $self = shift; 29 my $self = shift;
30 local $Carp::CarpLevel = 0;
31 30
32 my $instance = $self->next::method(@_); 31 my $instance = $self->next::method(@_);
33 32
34 $instance->callStack(longmess); 33 $instance->callStack(longmess);
35 $instance->source(shortmess); 34 $instance->source(shortmess);
53 my ($this) = @_; 52 my ($this) = @_;
54 53
55 return join("\n", $this->message, $this->callStack); 54 return join("\n", $this->message, $this->callStack);
56 } 55 }
57 56
57 sub throw {
58 my $self = shift;
59
60 die $self->new(@_);
61 }
62
58 1; 63 1;