Mercurial > pub > Impl
comparison _test/Test/Config/Bar.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::Bar; | |
| 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; |
