--- a/Lib/Form/Transform.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Form/Transform.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,29 +1,29 @@
-package Form::Transform;
-use strict;
-use warnings;
-use base qw(IMPL::Transform);
-
-sub CTOR {
-    my ($this) = @_;
-    
-    $this->superCTOR(
-        Templates => {
-            'Form::Container' => sub { my $this = shift; $this->TransformContainer(@_); },
-            'Form' => sub { my $this = shift; $this->TransformContainer(@_); }
-        },
-        Default => \&TransformItem
-    );
-}
-
-sub TransformContainer {
-    my ($this,$container) = @_;
-}
-
-sub TransformItem {
-    my ($this,$item) = @_;
-    return $item->isEmpty ? undef : $item->Value;
-}
-
-
-
-1;
+package Form::Transform;
+use strict;
+use warnings;
+use base qw(IMPL::Transform);
+
+sub CTOR {
+    my ($this) = @_;
+    
+    $this->superCTOR(
+        Templates => {
+            'Form::Container' => sub { my $this = shift; $this->TransformContainer(@_); },
+            'Form' => sub { my $this = shift; $this->TransformContainer(@_); }
+        },
+        Default => \&TransformItem
+    );
+}
+
+sub TransformContainer {
+    my ($this,$container) = @_;
+}
+
+sub TransformItem {
+    my ($this,$item) = @_;
+    return $item->isEmpty ? undef : $item->Value;
+}
+
+
+
+1;