Mercurial > pub > Impl
diff lib/IMPL/Config/ActivationException.pm @ 416:cc2cf8c0edc2 ref20150831
sync
author | cin |
---|---|
date | Thu, 29 Oct 2015 03:50:25 +0300 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/IMPL/Config/ActivationException.pm Thu Oct 29 03:50:25 2015 +0300 @@ -0,0 +1,31 @@ +package IMPL::Config::ActivationException; +use strict; + +use IMPL::declare { + base => [ + 'IMPL::AppException' => undef + ], + props => [ + activationStack => 'ro', + serviceName => 'ro', + innerException => 'ro', + reason => 'ro' + ] +}; + +use IMPL::Resources::Strings { + message => "Error activating %serviceName%: %reason%" +}; + +sub CTOR { + my ( $this, %args ) = @_; + + $this->$_( $args{$_} ) foreach grep exists $args{$_}, qw( + activationStack + serviceName + innerException + reason + ); +} + +1;