Changeset 2563

Timestamp:

03/02/10 00:35:33 (2 years ago)

Author:

karpet

Message:

add translate_to() method

Location:

Search-Query/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• lib/Search/Query/Dialect.pm (modified) (1 diff)
• t/06-translate.t (added)

Search-Query/trunk/Changes

@@ -40 +40 @@
           expand to all defined if fields if 'default_field' is not
           specified.
+        * add translate_to() method to base Dialect class.
 

Search-Query/trunk/MANIFEST

@@ -20 +20 @@
 t/04-sql.t
 t/05-swish.t
+t/06-translate.t
 t/pod-coverage.t
 t/pod.t

Search-Query/trunk/lib/Search/Query/Dialect.pm

@@ -144 +144 @@
 }
 
+=head2 translate_to( I<dialect> )
+
+Translate from one Dialect to another. Returns an object
+blessed into the I<dialect> class.
+
+=cut
+
+sub translate_to {
+    my $self        = shift;
+    my $dialect     = shift or croak "Dialect required";
+    my $query_class = Search::Query->get_dialect($dialect);
+    my $new_dialect = bless( Clone::clone($self), $query_class );
+    my $code        = sub {
+        my ( $clause, $tree, $sub, $prefix ) = @_;
+        if ( $clause->is_tree ) {
+            bless( $clause->value, $query_class );
+            $clause->value->walk($sub);
+        }
+    };
+    $new_dialect->walk($code);
+    return $new_dialect;
+}
+
 =head2 add_or_clause( I<clause> )