annotate _test/Test/Config/Bar.pm @ 418:3f38dabaf5cc ref20150831

sync
author cin
date Mon, 28 Dec 2015 15:11:35 +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::Bar;
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;