Mercurial > pub > Impl

annotate lib/IMPL/Config/ServiceNotFoundException.pm @ 423:60c2892a577c ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +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;