annotate Lib/IMPL/TargetException.pm @ 393:69a1f1508696

minor security refactoring
author cin
date Fri, 14 Feb 2014 16:41:12 +0400
parents 68d905f8dc43
children
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 {
282
68d905f8dc43 *IMPL::SQL fixed warnings
cin
parents: 266
diff changeset
21 message => "An invocation target throws an exception '%innerException.message%' \n%innerException.callStack%\n__END_OF_INNER_EXCEPTION__\n"
266
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;