Mercurial > pub > Impl

annotate _test/Test/Config/Foo.pm @ 419:bbc4739c4d48 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on IMPL::Config::Container
author cin
date Sun, 29 Jan 2017 10:30:20 +0300
parents 3ed0c58e9da3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
417
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
1 package Test::Config::Foo;
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
2 use strict;
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
3 use IMPL::declare {
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
4 base => [
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
5 'IMPL::Object' => undef
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
6 ],
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
7 props => [
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
8 value => 'r'
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
9 ]
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
10 };
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
11
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
12 sub CTOR {
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
13 my $this = shift;
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
14
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
15 $this->value(shift) if @_;
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
16 }
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
17
3ed0c58e9da3 working on di container, tests
cin
parents:
diff changeset
18 1;