annotate _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
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;