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

sync
author cin
date Tue, 26 Feb 2013 02:21:03 +0400
parents 32aceba4ee6d
children 793cc7f0a7e7
comparison
equal deleted inserted replaced
291:5d14baa35790 292:6dc1c369eb71
53 } 53 }
54 54
55 return $this->new(%args); 55 return $this->new(%args);
56 } 56 }
57 57
58 sub Query {
59 my ($this,$query) = @_;
60
61 my %args;
62
63 $args{base} = $this->base;
64 $args{view} = $this->view if $this->view;
65 $args{hash} = $this->hash if $this->hash;
66 $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query;
67
68 return $this->new(%args);
69 }
70
58 sub SetView { 71 sub SetView {
59 my ($this,$newView) = @_; 72 my ($this,$newView) = @_;
60 73
61 $this->view($newView); 74 $this->view($newView);
62 75