diff lib/IMPL/Config/ServiceNotFoundException.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/ServiceNotFoundException.pm	Thu Oct 29 03:50:25 2015 +0300
@@ -0,0 +1,25 @@
+package IMPL::Config::ServiceNotFoundException;
+use strict;
+
+use IMPL::declare {
+    base => [
+        'IMPL::AppException' => undef
+    ],
+    props => [
+        serviceName     => 'ro',
+    ]
+};
+
+use IMPL::Resources::Strings {
+    message => "Service %serviceName% not found"
+};
+
+sub CTOR {
+    my ( $this, %args ) = @_;
+
+    $this->$_( $args{$_} ) foreach grep exists $args{$_}, qw(
+      serviceName
+    );
+}
+
+1;