comparison lib/IMPL/Config/ActivationException.pm @ 416:cc2cf8c0edc2 ref20150831

sync
author cin
date Thu, 29 Oct 2015 03:50:25 +0300
parents
children
comparison
equal deleted inserted replaced
415:3d24b10dd0d5 416:cc2cf8c0edc2
1 package IMPL::Config::ActivationException;
2 use strict;
3
4 use IMPL::declare {
5 base => [
6 'IMPL::AppException' => undef
7 ],
8 props => [
9 activationStack => 'ro',
10 serviceName => 'ro',
11 innerException => 'ro',
12 reason => 'ro'
13 ]
14 };
15
16 use IMPL::Resources::Strings {
17 message => "Error activating %serviceName%: %reason%"
18 };
19
20 sub CTOR {
21 my ( $this, %args ) = @_;
22
23 $this->$_( $args{$_} ) foreach grep exists $args{$_}, qw(
24 activationStack
25 serviceName
26 innerException
27 reason
28 );
29 }
30
31 1;