comparison lib/IMPL/Config/ValueDescriptor.pm @ 422:b0481c071bea ref20150831

IMPL::Config::Container tests, YAMLConfiguration now works and tested
author cin
date Sun, 20 Aug 2017 00:20:41 +0300
parents 7798345304bc
children
comparison
equal deleted inserted replaced
421:7798345304bc 422:b0481c071bea
27 27
28 sub Activate { 28 sub Activate {
29 my ( $this, $context ) = @_; 29 my ( $this, $context ) = @_;
30 return $this->value if $this->raw; 30 return $this->value if $this->raw;
31 31
32 my $services = $this->services; 32 return $this->_ActivateValue( $this->value, $context );
33
34 $context->EnterScope( '$value: ' . $this->value, $services ) if $services;
35 my $value = $this->_ActivateValue( $this->value, $context );
36 $context->LeaveScope() if $services;
37 return $value;
38 } 33 }
39 34
40 sub _ActivateValue { 35 sub _ActivateValue {
41 my ( $this, $value, $context ) = @_; 36 my ( $this, $value, $context ) = @_;
42 37
55 else { 50 else {
56 return $value; 51 return $value;
57 } 52 }
58 } 53 }
59 54
55 sub GetName {
56 return '$value: ' . shift->value;
57 }
58
60 1; 59 1;