Mercurial > pub > Impl

comparison Lib/IMPL/Web/AutoLocator.pm @ 212:292226770180

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bugfixes
author sergey
date Fri, 29 Jun 2012 19:24:15 +0400
parents 2b9b55cfb79b
children 47f77e6409f7
comparison
equal deleted inserted replaced
211:2b9b55cfb79b 212:292226770180
41 my $query = shift; 41 my $query = shift;
42 42
43 $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query; 43 $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query;
44 } 44 }
45 45
46 return __PACKAGE__->new(%args); 46 return $this->new(%args);
47 } 47 }
48 48
49 sub SetView { 49 sub SetView {
50 my ($this,$newView) = @_; 50 my ($this,$newView) = @_;
51 51
91 91
92 use IMPL::require { 92 use IMPL::require {
93 Locator => 'IMPL::Web::Locator' 93 Locator => 'IMPL::Web::Locator'
94 }; 94 };
95 95
96 my $bugTracker = Locator->new("http://myhost.org/bugzilla")->view("cgi"); 96 my $bugTracker = Locator->new(base => "http://myhost.org/bugzilla")->SetView("cgi");
97 97
98 my $bug = $bugTracker->show_bug({id = 1}); 98 my $bug = $bugTracker->show_bug({id = 1});
99 99
100 my $wikiPages = Locator->new("http://myhost.org/wiki/bin/view"); 100 my $wikiPages = Locator->new(base => "http://myhost.org/wiki/bin/view");
101 101
102 my $page = $wiki->Main->HowTo; 102 my $page = $wiki->Main->HowTo;
103 103
104 =end code 104 =end code
105 105
120 Получает расположение дочернего ресурса. При этом моздается новый объект адреса ресурса. 120 Получает расположение дочернего ресурса. При этом моздается новый объект адреса ресурса.
121 121
122 =head2 C<AUTLOAD> 122 =head2 C<AUTLOAD>
123 123
124 Перенаправляет вызовы методов в метод C<Fetch> передавая первым параметром имя метода. 124 Перенаправляет вызовы методов в метод C<Fetch> передавая первым параметром имя метода.
125
126 =cut
127