comparison _test/Test/Config/Foo.pm @ 417:3ed0c58e9da3 ref20150831

working on di container, tests
author cin
date Mon, 02 Nov 2015 01:56:53 +0300
parents
children
comparison
equal deleted inserted replaced
416:cc2cf8c0edc2 417:3ed0c58e9da3
1 package Test::Config::Foo;
2 use strict;
3 use IMPL::declare {
4 base => [
5 'IMPL::Object' => undef
6 ],
7 props => [
8 value => 'r'
9 ]
10 };
11
12 sub CTOR {
13 my $this = shift;
14
15 $this->value(shift) if @_;
16 }
17
18 1;