[Jifty-commit] r7467 - Jifty-DBI/branches/tisql/lib/Jifty/DBI

[Jifty commits]

Author: ruz
Date: Tue Sep  1 09:36:46 2009
New Revision: 7467

Modified:
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm

Log:
* add clone in ::Tisql::Tree

Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	Tue Sep  1 09:36:46 2009
@@ -714,6 +714,22 @@
     return join ' ', '(', @$self, ')';
 }
 
+sub clone {
+    my $self = shift;
+
+    require Storable;
+
+    my @new = @$self;
+    foreach (@new) {
+        if ( blessed $_ ) {
+            $_ = $_->clone;
+        } elsif ( ref $_ ) {
+            $_ = Storable::dclone( $_ );
+        }
+    }
+    return $self->new( @new );
+}
+
 package Jifty::DBI::Tisql::Condition;
 
 use overload