diff Lib/IMPL/Web/AutoLocator.pm @ 292:6dc1c369eb71

sync
author cin
date Tue, 26 Feb 2013 02:21:03 +0400
parents 32aceba4ee6d
children 793cc7f0a7e7
line wrap: on
line diff
--- a/Lib/IMPL/Web/AutoLocator.pm	Thu Feb 21 03:44:02 2013 +0400
+++ b/Lib/IMPL/Web/AutoLocator.pm	Tue Feb 26 02:21:03 2013 +0400
@@ -55,6 +55,19 @@
 	return $this->new(%args);
 }
 
+sub Query {
+    my ($this,$query) = @_;
+    
+    my %args;
+    
+    $args{base} = $this->base;
+    $args{view} = $this->view if $this->view;
+    $args{hash} = $this->hash if $this->hash;
+    $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query;
+    
+    return $this->new(%args);
+}
+
 sub SetView {
 	my ($this,$newView) = @_;