Mercurial > pub > Impl

annotate Lib/IMPL/TargetException.pm @ 270:3f59fd828d5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author cin
date Fri, 25 Jan 2013 00:25:02 +0400
parents 89179bb8c388
children 68d905f8dc43
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
1 package IMPL::TargetException;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
2 use strict;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
3
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
4 use IMPL::Const qw(:prop);
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
5 use IMPL::declare {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
6 base => [
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
7 'IMPL::AppException' => undef,
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
8 ],
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
9 props => [
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
10 innerException => PROP_RO
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
11 ]
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
12 };
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
13
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
14 sub CTOR {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
15 my ($this,%args) = @_;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
16
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
17 $this->innerException($args{innerException});
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
18 }
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
19
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
20 use IMPL::Resources::Strings {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
21 messageFormat => "An invocation target throws an exception '%innerException.message%' \n%innerException.callStack%\n__END_OF_INNER_EXCEPTION__\n"
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
22 };
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
23
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents:
diff changeset
24 1;