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

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;