Mercurial > pub > Impl
diff Lib/IMPL/Config/Container.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 03e58a454b20 |
children | 0f3e369553bd |
line wrap: on
line diff
--- a/Lib/IMPL/Config/Container.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/IMPL/Config/Container.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,40 +1,40 @@ -package IMPL::Config::Container; -use strict; -use warnings; - -use base qw(IMPL::Config); -use IMPL::Class::Property; - -BEGIN { - public property Chidren => prop_all; -} - -sub CTOR { - my ($this,%args) = @_; - - $this->Chidren(\%args); -} - -sub save { - my ($this,$ctx) = @_; - - while (my ($key,$value) = each %{$this->Chidren}) { - $ctx->AddVar($key,$value); - } -} - -our $AUTOLOAD; -sub AUTOLOAD { - my $this = shift; - - (my $prop = $AUTOLOAD) =~ s/.*?(\w+)$/$1/; - - my $child = $this->Chidren->{$prop}; - if (ref $child and $child->isa('IMPL::Config::Class')) { - return $child->instance(@_); - } else { - return $child; - } -} - -1; +package IMPL::Config::Container; +use strict; +use warnings; + +use base qw(IMPL::Config); +use IMPL::Class::Property; + +BEGIN { + public property Chidren => prop_all; +} + +sub CTOR { + my ($this,%args) = @_; + + $this->Chidren(\%args); +} + +sub save { + my ($this,$ctx) = @_; + + while (my ($key,$value) = each %{$this->Chidren}) { + $ctx->AddVar($key,$value); + } +} + +our $AUTOLOAD; +sub AUTOLOAD { + my $this = shift; + + (my $prop = $AUTOLOAD) =~ s/.*?(\w+)$/$1/; + + my $child = $this->Chidren->{$prop}; + if (ref $child and $child->isa('IMPL::Config::Class')) { + return $child->instance(@_); + } else { + return $child; + } +} + +1;