[Jifty-commit] r7467 - Jifty-DBI/branches/tisql/lib/Jifty/DBI
Jifty commits
jifty-commit at lists.jifty.org
Tue Sep 1 09:36:46 EDT 2009
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
More information about the Jifty-commit
mailing list