annotate lib/IMPL/Config/ActivationException.pm @ 419:bbc4739c4d48 ref20150831

working on IMPL::Config::Container
author cin
date Sun, 29 Jan 2017 10:30:20 +0300
parents cc2cf8c0edc2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
416
cin
parents:
diff changeset
1 package IMPL::Config::ActivationException;
cin
parents:
diff changeset
2 use strict;
cin
parents:
diff changeset
3
cin
parents:
diff changeset
4 use IMPL::declare {
cin
parents:
diff changeset
5 base => [
cin
parents:
diff changeset
6 'IMPL::AppException' => undef
cin
parents:
diff changeset
7 ],
cin
parents:
diff changeset
8 props => [
cin
parents:
diff changeset
9 activationStack => 'ro',
cin
parents:
diff changeset
10 serviceName => 'ro',
cin
parents:
diff changeset
11 innerException => 'ro',
cin
parents:
diff changeset
12 reason => 'ro'
cin
parents:
diff changeset
13 ]
cin
parents:
diff changeset
14 };
cin
parents:
diff changeset
15
cin
parents:
diff changeset
16 use IMPL::Resources::Strings {
cin
parents:
diff changeset
17 message => "Error activating %serviceName%: %reason%"
cin
parents:
diff changeset
18 };
cin
parents:
diff changeset
19
cin
parents:
diff changeset
20 sub CTOR {
cin
parents:
diff changeset
21 my ( $this, %args ) = @_;
cin
parents:
diff changeset
22
cin
parents:
diff changeset
23 $this->$_( $args{$_} ) foreach grep exists $args{$_}, qw(
cin
parents:
diff changeset
24 activationStack
cin
parents:
diff changeset
25 serviceName
cin
parents:
diff changeset
26 innerException
cin
parents:
diff changeset
27 reason
cin
parents:
diff changeset
28 );
cin
parents:
diff changeset
29 }
cin
parents:
diff changeset
30
cin
parents:
diff changeset
31 1;