view 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
line wrap: on
line source

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;