annotate lib/IMPL/Config/ServiceNotFoundException.pm @ 419:bbc4739c4d48 ref20150831

working on IMPL::Config::Container
author cin
date Sun, 29 Jan 2017 10:30:20 +0300
parents cc2cf8c0edc2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
416
cin
parents:
diff changeset
1 package IMPL::Config::ServiceNotFoundException;
cin
parents:
diff changeset
2 use strict;
cin
parents:
diff changeset
3
cin
parents:
diff changeset
4 use IMPL::declare {
cin
parents:
diff changeset
5 base => [
cin
parents:
diff changeset
6 'IMPL::AppException' => undef
cin
parents:
diff changeset
7 ],
cin
parents:
diff changeset
8 props => [
cin
parents:
diff changeset
9 serviceName => 'ro',
cin
parents:
diff changeset
10 ]
cin
parents:
diff changeset
11 };
cin
parents:
diff changeset
12
cin
parents:
diff changeset
13 use IMPL::Resources::Strings {
cin
parents:
diff changeset
14 message => "Service %serviceName% not found"
cin
parents:
diff changeset
15 };
cin
parents:
diff changeset
16
cin
parents:
diff changeset
17 sub CTOR {
cin
parents:
diff changeset
18 my ( $this, %args ) = @_;
cin
parents:
diff changeset
19
cin
parents:
diff changeset
20 $this->$_( $args{$_} ) foreach grep exists $args{$_}, qw(
cin
parents:
diff changeset
21 serviceName
cin
parents:
diff changeset
22 );
cin
parents:
diff changeset
23 }
cin
parents:
diff changeset
24
cin
parents:
diff changeset
25 1;