Mercurial > pub > Impl

annotate _test/Test/Config/Bar.pm @ 423:60c2892a577c ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +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;