Mercurial > pub > Impl
view _test/Test/Config/Bar.pm @ 418:3f38dabaf5cc ref20150831
sync
author | cin |
---|---|
date | Mon, 28 Dec 2015 15:11:35 +0300 |
parents | 3ed0c58e9da3 |
children |
line wrap: on
line source
package Test::Config::Bar; use strict; use IMPL::declare { base => [ 'IMPL::Object' => undef ], props => [ value => 'r' ] }; sub CTOR { my $this = shift; $this->value(shift) if @_; } 1;