--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Transform.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,65 @@
+package IMPL::Transform;
+use base qw(IMPL::Object IMPL::Object::Autofill);
+
+use IMPL::Class::Property;
+use IMPL::Class::Property::Direct;
+
+BEGIN {
+    protected _direct property Templates => prop_all;
+    protected _direct property Default => prop_all;
+    protected _direct property Plain => prop_all;
+}
+
+__PACKAGE__->PassThroughArgs;
+
+sub Transform {
+    my ($this,$object) = @_;
+    
+    if (not ref $object) {
+        die new IMPL::Exception("There is no the template for a plain value in the transform") unless $this->{$Plain};
+        my $template = $this->{$Plain};
+        return $this->$template($object);
+    } else {
+    
+        my $template = $this->MatchTemplate($object) || $this->Default or die new IMPL::Transform::NoTransformException(ref $object);
+    
+        return $this->$template($object);
+    }
+}
+
+sub MatchTemplate {
+    my ($this,$object) = @_;
+    my $class = ref $object;
+    
+    foreach my $tClass ( keys %{$this->Templates || {}} ) {
+        return $this->Templates->{$tClass} if ($tClass eq $class);
+    }
+}
+
+package IMPL::Transform::NoTransformException;
+use base qw(IMPL::Exception);
+
+1;
+
+__END__
+
+=pod
+=head1 SYNOPSIS
+
+my $obj = new AnyObject;
+
+my $t = new Transform (
+    AnyClass => sub {
+        my ($this,$object) = @_;
+        return new NewClass({ Name => $object->name, Document => $this->Transform($object->Data) })
+    },
+    DocClass => sub {
+        my ($this,$object) = @_;
+        return new DocPreview(Author => $object->Author, Text => $object->Data);
+    }
+);
+
+=head1 Summary
+Ïðåîáðàçóåò äàííûå ñîäåðæàùèåñÿ â ôîðìå â ðåàëüíûå îáúåêòû èñïîëüçóÿ ñïåöèàëüíîå ïðåîáðàçîâàíèå.
+
+=cut
\ No newline at end of file