Mercurial > pub > Impl
view _test/Test/Config/Bar.pm @ 424:87af445663d7 ref20150831
IMPL::Object::_Base
author | cin |
---|---|
date | Tue, 03 Apr 2018 10:54:09 +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;