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;