pub/Impl: Lib/IMPL/Web/AutoLocator.pm annotate

annotate Lib/IMPL/Web/AutoLocator.pm @ 360:39842eedd923

language detection from request

author	sergey
date	Tue, 26 Nov 2013 03:22:44 +0400
parents	793cc7f0a7e7
children	7171a8e2e2ba

rev	line source
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	1 package IMPL::Web::AutoLocator;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	2 use strict;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	3
244 a02b110da931 refactoring sergey parents: 232 diff changeset	4 use overload '""' => 'toString';
a02b110da931 refactoring sergey parents: 232 diff changeset	5
232 5c82eec23bb6 Fixed degradations due refactoring sergey parents: 229 diff changeset	6 use IMPL::Const qw(:prop);
244 a02b110da931 refactoring sergey parents: 232 diff changeset	7 use IMPL::lang qw(:hash);
a02b110da931 refactoring sergey parents: 232 diff changeset	8 use IMPL::clone qw(clone);
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	9 use URI;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	10 use URI::Escape;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	11 use IMPL::declare {
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	12 require => {
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	13 Exception => 'IMPL::Exception',
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	14 ArgumentException => '-IMPL::InvalidArgumentException'
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	15 },
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	16 base => [
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	17 'IMPL::Object' => undef,
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	18 'IMPL::Object::Autofill' => '@_',
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	19 'IMPL::Object::Serializable' => '@_'
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	20 ],
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	21 props => [
232 5c82eec23bb6 Fixed degradations due refactoring sergey parents: 229 diff changeset	22 base => PROP_RO,
5c82eec23bb6 Fixed degradations due refactoring sergey parents: 229 diff changeset	23 view => PROP_RW,
5c82eec23bb6 Fixed degradations due refactoring sergey parents: 229 diff changeset	24 query => PROP_RW,
5c82eec23bb6 Fixed degradations due refactoring sergey parents: 229 diff changeset	25 hash => PROP_RW
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	26 ]
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	27 };
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	28
244 a02b110da931 refactoring sergey parents: 232 diff changeset	29 sub Clone {
a02b110da931 refactoring sergey parents: 232 diff changeset	30 my $this = shift;
a02b110da931 refactoring sergey parents: 232 diff changeset	31
a02b110da931 refactoring sergey parents: 232 diff changeset	32 return clone($this);
a02b110da931 refactoring sergey parents: 232 diff changeset	33 }
a02b110da931 refactoring sergey parents: 232 diff changeset	34
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	35 sub Child {
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	36 my $this = shift;
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	37 my $child = shift or die ArgumentException->new("a child resource identifier is required");
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	38 die ArgumentException->new("a child resource can't be a reference") if ref $child;
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	39
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	40 # safe
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	41 $child = uri_escape($child);
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	42
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	43 my %args;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	44
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	45 $args{base} = $this->base =~ /\/$/ ? $this->base . $child : $this->base . '/' . $child;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	46 $args{view} = $this->view if $this->view;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	47 $args{hash} = $this->hash if $this->hash;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	48
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	49 if (@_) {
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	50 my $query = shift;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	51
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	52 $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	53 }
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	54
212 292226770180 bugfixes sergey parents: 211 diff changeset	55 return $this->new(%args);
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	56 }
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	57
326 793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	58 sub Sibling {
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	59 my $this = shift;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	60 my $child = shift or die ArgumentException->new("a child resource identifier is required");
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	61 die ArgumentException->new("a child resource can't be a reference") if ref $child;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	62
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	63 # safe
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	64 $child = uri_escape($child);
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	65
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	66 my %args;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	67
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	68 if($this->base =~ /(.?)(\/[^\/])?$/) {
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	69 $args{base} = join('/',$1,$child);
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	70 } else {
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	71 $args{base} = $child;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	72 }
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	73
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	74 $args{view} = $this->view if $this->view;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	75 $args{hash} = $this->hash if $this->hash;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	76
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	77 if (@_) {
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	78 my $query = shift;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	79
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	80 $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query;
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	81 }
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	82
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	83 return $this->new(%args);
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	84
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	85 }
793cc7f0a7e7 IMPL::Web::AutoLocator added Sibling method for locating sibling resources sergey parents: 292 diff changeset	86
292 6dc1c369eb71 sync cin parents: 256 diff changeset	87 sub Query {
6dc1c369eb71 sync cin parents: 256 diff changeset	88 my ($this,$query) = @_;
6dc1c369eb71 sync cin parents: 256 diff changeset	89
6dc1c369eb71 sync cin parents: 256 diff changeset	90 my %args;
6dc1c369eb71 sync cin parents: 256 diff changeset	91
6dc1c369eb71 sync cin parents: 256 diff changeset	92 $args{base} = $this->base;
6dc1c369eb71 sync cin parents: 256 diff changeset	93 $args{view} = $this->view if $this->view;
6dc1c369eb71 sync cin parents: 256 diff changeset	94 $args{hash} = $this->hash if $this->hash;
6dc1c369eb71 sync cin parents: 256 diff changeset	95 $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query;
6dc1c369eb71 sync cin parents: 256 diff changeset	96
6dc1c369eb71 sync cin parents: 256 diff changeset	97 return $this->new(%args);
6dc1c369eb71 sync cin parents: 256 diff changeset	98 }
6dc1c369eb71 sync cin parents: 256 diff changeset	99
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	100 sub SetView {
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	101 my ($this,$newView) = @_;
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	102
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	103 $this->view($newView);
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	104
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	105 return $this;
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	106 }
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	107
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	108 sub url {
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	109 my ($this) = @_;
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	110
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	111 my $url = URI->new($this->view ? $this->base . "." . $this->view : $this->base);
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	112 $url->query_form($this->query);
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	113 $url->fragment($this->hash);
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	114
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	115 return $url;
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	116 }
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	117
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 244 diff changeset	118 sub ToAbsolute {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 244 diff changeset	119 my ($this,$baseUrl) = @_;
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 244 diff changeset	120
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 244 diff changeset	121 return URI->new_abs( $this->url, $baseUrl );
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 244 diff changeset	122 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 244 diff changeset	123
244 a02b110da931 refactoring sergey parents: 232 diff changeset	124 sub toString {
a02b110da931 refactoring sergey parents: 232 diff changeset	125 shift->url->as_string();
a02b110da931 refactoring sergey parents: 232 diff changeset	126 }
a02b110da931 refactoring sergey parents: 232 diff changeset	127
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	128 sub AUTOLOAD {
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	129 our $AUTOLOAD;
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	130
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	131 (my $method) = ($AUTOLOAD =~ m/(\w+)$/);
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	132
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	133 return if $method eq 'DESTROY';
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	134
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	135 my $this = shift;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	136 return $this->Child($method,@_);
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	137 }
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	138
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	139
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	140
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	141 1;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	142
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	143 __END__
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	144
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	145 =head1 NAME
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	146
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	147 C<IMPL::Web::AutoLocator> - Обертка вокруг адреса ресурса.
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	148
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	149 =head1 SYNOPSIS
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	150
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	151 =begin code
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	152
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	153 use IMPL::require {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	154 Locator => 'IMPL::Web::AutoLocator'
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	155 };
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	156
212 292226770180 bugfixes sergey parents: 211 diff changeset	157 my $bugTracker = Locator->new(base => "http://myhost.org/bugzilla")->SetView("cgi");
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	158
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	159 my $bug = $bugTracker->show_bug({id = 1});
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	160
212 292226770180 bugfixes sergey parents: 211 diff changeset	161 my $wikiPages = Locator->new(base => "http://myhost.org/wiki/bin/view");
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	162
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	163 my $page = $wiki->Main->HowTo;
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	164
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	165 my $images = Locator->new(base => "http://static.myhost.org/images", view => "png");
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	166
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	167 my $editIco = $images->icons->small->edit;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	168
210 6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	169 =end code
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	170
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	171 =head1 DESCRIPTION
6adaeb86945d added IMPL::Web::AutoLocator sergey parents: diff changeset	172
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	173 Для удобстав навигации по ресурсам, полностью отражает классическую структуру
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	174 иерархически организованных ресурсов. позволяет гибко работать с параметрами
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	175 запроса и хешем. Для постоты чтения реализует метод C<AUTOLOAD> для доступа
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	176 к дочерним ресурсам.
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	177
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	178 =head1 MEMBERS
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	179
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	180 =head2 C<CTOR(%args)>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	181
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	182 Создает новый объект расположение. Позволяет задать путь, расширение, параметры
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	183 запроса и фрагмент ресурса.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	184
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	185 =over
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	186
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	187 =item * C<base>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	188
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	189 Строка с базовым адресом для дочерних ресурсов.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	190
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	191 =item * C<view>
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	192
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	193 Задает суфикс, обозначающий представление ресурса, аналогично расширению у
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	194 файлов. Данный суффикс может использоваться контроллером для выбора
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	195 представления ресурса.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	196
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	197 =item * C<query>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	198
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	199 Ссылка на хеш с параметрами запроса
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	200
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	201 =item * C<hash>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	202
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	203 Часть C<uri> обозначающая фрагмент документа (все, что идет после символа C<#>).
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	204
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	205 =back
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	206
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	207 =head2 C<Child($child[,$query])>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	208
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	209 Получает расположение дочернего ресурса. При этом cоздается новый объект адреса ресурса.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	210
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	211 =head2 C<SetView($view)>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	212
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	213 Позволяет указать представление (расширение) у текущего адреса ресурса. Изменяет
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	214 представление и возвращает измененный адрес ресурса.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	215
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	216 =head2 C<[get]base>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	217
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	218 Базовый адрес, относительно которого будут получены дочерние ресурсы.
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	219
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	220 =head2 C<[get,set]view>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	221
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	222 Представление для ресурсов, аналогично расширению у файлов.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	223
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	224 =head2 C<[get,set]query>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	225
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	226 Ссылка на хеш с параметрами для C<GET> запроса.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	227
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	228 =head2 C<[get,set]hash>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	229
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	230 Часть адреса ресурса, отвечающая за фрагмент.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	231
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	232 =head2 C<[get]url>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	233
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	234 Объект C<URI> для текущего адреса.
211 2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	235
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	236 =head2 C<AUTLOAD>
2b9b55cfb79b Completed IMPL::Web::AutoLocator, added tests cin parents: 210 diff changeset	237
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 212 diff changeset	238 Перенаправляет вызовы методов в метод C<Child> передавая первым параметром имя метода.
212 292226770180 bugfixes sergey parents: 211 diff changeset	239
292226770180 bugfixes sergey parents: 211 diff changeset	240 =cut
292226770180 bugfixes sergey parents: 211 diff changeset	241

Mercurial > pub > Impl

annotate Lib/IMPL/Web/AutoLocator.pm @ 360:39842eedd923