view _test/Test/Config/Bar.pm @ 421:7798345304bc ref20150831

working on IMPL::Config, removed old stuff
author cin
date Sun, 16 Jul 2017 22:59:39 +0300
parents 3ed0c58e9da3
children
line wrap: on
line source

package Test::Config::Bar;
use strict;
use IMPL::declare {
	base => [
	   'IMPL::Object' => undef
	],
	props => [
	   value => 'r'
	]
};

sub CTOR {
	my $this = shift;
	
	$this->value(shift) if @_;
}

1;