log
graph
tags
bookmarks
branches
changeset
browse
file
latest
diff
comparison
annotate
file log
raw
help
Mercurial
>
pub
>
Impl
annotate Lib/IMPL/TargetException.pm @ 266:
89179bb8c388
Find changesets by keywords (author, files, the commit message), revision number or hash, or
revset expression
.
*corrected TTView to handle plain (and undefined) values *added URL generating methods to Application::Action *fixed the compare validatior for schemas
author
cin
date
Mon, 14 Jan 2013 03:10:06 +0400 (2013-01-13)
parents
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;