Mercurial > pub > Impl
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; |