Mercurial > pub > Impl
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; |