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;