pub/Impl: Lib/IMPL/Web/Handler/TTView.pm annotate

annotate Lib/IMPL/Web/Handler/TTView.pm @ 250:129e48bb5afb

DOM refactoring ObjectToDOM methods are virtual QueryToDOM uses inflators Fixed transform for the complex values in the ObjectToDOM QueryToDOM doesn't allow to use complex values (HASHes) as values for nodes (overpost problem)

author	sergey
date	Wed, 07 Nov 2012 04:17:53 +0400
parents	a02b110da931
children	32aceba4ee6d

rev	line source
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	1 package IMPL::Web::Handler::TTView;
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	2 use strict;
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	3
204 d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config sergey parents: 203 diff changeset	4 use List::Util qw(first);
233 3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	5 use IMPL::Const qw(:prop);
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	6 use IMPL::declare {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	7 require => {
240 abc7c26bf615 +Added ObjectFactory for templates with static members support sergey parents: 235 diff changeset	8 Factory => 'IMPL::Web::View::ObjectFactory',
241 f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	9 HttpResponse => 'IMPL::Web::HttpResponse',
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	10 Loader => 'IMPL::Code::Loader',
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	11 ViewResult => '-IMPL::Web::ViewResult'
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	12 },
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	13 base => [
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	14 'IMPL::Object' => undef,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	15 'IMPL::Object::Autofill' => '@_',
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	16 'IMPL::Object::Serializable' => undef
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	17 ],
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	18
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	19 props => [
233 3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	20 contentType => PROP_RO,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	21 contentCharset => PROP_RO,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	22 loader => PROP_RO,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	23 selectors => PROP_RO \| PROP_LIST,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	24 defaultDocument => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	25 indexResource => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	26 _selectorsCache => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code sergey parents: 229 diff changeset	27 _classTemplates => PROP_RW
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	28 ]
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	29 };
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	30
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	31 sub CTOR {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	32 my ($this) = @_;
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	33
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	34 $this->indexResource('index') unless $this->indexResource;
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	35 }
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	36
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	37 sub Invoke {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	38 my ( $this, $action, $next ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	39
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	40 my $result = $next ? $next->($action) : undef;
241 f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	41
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	42 my ($model,$view);
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	43 if( ref $result and eval { $result->isa(ViewResult) } ) {
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	44 $model = $result->model;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	45 $view = $result;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	46 } else {
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	47 $model = $result;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	48 $view = ViewResult->new(model => $model);
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	49 }
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	50
244 a02b110da931 refactoring sergey parents: 243 diff changeset	51 $view->location($action->context->{resourceLocation}) unless $view->location;
a02b110da931 refactoring sergey parents: 243 diff changeset	52
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	53 my $vars = {
241 f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	54 view => $view,
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	55 model => $model,
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	56 action => $action,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	57 app => $action->application,
235 a4d9126edcbb code cleaning sergey parents: 233 diff changeset	58 ImportClass => sub {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	59 my $class = shift;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	60
241 f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	61 $class = Loader->safe->Require($class);
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	62
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	63 return Factory->new($class);
205 891c04080658 IMPL::Web::View fixed template selection, release candidate sergey parents: 204 diff changeset	64 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	65 };
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	66
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	67 my $doc =
243 cd2b1f121029 TTView: fixed template selection based on the model type sergey* parents: 241 diff changeset	68 $this->loader->document( $this->SelectView( $action, ref $model ),
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	69 $vars );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	70
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	71 return HttpResponse->new(
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	72 type => $this->contentType,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	73 charset => $this->contentCharset,
241 f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment. sergey parents: 240 diff changeset	74 body => $doc->Render()
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	75 );
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	76 }
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	77
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	78 sub SelectView {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	79 my ( $this, $action, $class ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	80
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	81 my @path = split /\//, $action->query->path_info(), -1;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	82
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	83 shift @path; # remove always empty leading segment
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	84
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	85 my $last = pop @path;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	86 $last =~ s/\.\w+$//;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	87 $last \|\|= $this->indexResource;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	88 push @path, $last;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	89
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	90 $this->BuildCache unless $this->_selectorsCache;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	91 my $cache = $this->_selectorsCache;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	92
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	93 @path = reverse @path;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	94
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	95 foreach
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	96 my $subclass ( $class ? ( _GetHierarchy($class), '-default' ) : '-plain' )
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	97 {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	98 my @results;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	99 push @results,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	100 { result => $this->_classTemplates->{$subclass}, level => 0 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	101 if $this->_classTemplates->{$subclass};
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	102 if ( $cache->{$subclass} ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	103 my $alternatives =
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	104 [ { selector => $cache->{$subclass}, immediate => 1 } ];
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	105 $alternatives =
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	106 $this->MatchAlternatives( $_, $alternatives, \@results )
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	107 foreach @path;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	108 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	109
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	110 if (@results) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	111 @results = sort { $b->{level} <=> $a->{level} } @results;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	112 return ( shift @results )->{result};
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	113 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	114 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	115
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	116 return $this->defaultDocument;
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	117 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	118
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	119 sub _GetHierarchy {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	120 my ($class) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	121 return unless $class;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	122
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	123 no strict 'refs';
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	124
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	125 return $class, map { _GetHierarchy($_) } @{"${class}::ISA"};
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	126 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	127
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	128 sub BuildCache {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	129 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	130
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	131 my @selectors;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	132
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	133 my $cache = $this->_selectorsCache( {} );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	134 $this->_classTemplates( {} );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	135
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	136 foreach my $selector ( $this->selectors ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	137 if ( not ref $selector ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	138
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	139 my ( $path, $data ) = split( /\s=>\s/, $selector );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	140
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	141 my @path = split( /\s+/, $path );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	142
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	143 my $class;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	144
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	145 # if this selector has a class part
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	146 if ( $path[$#path] =~ m/^\@(.*)/ ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	147 $class = $1;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	148 pop @path;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	149 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	150 else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	151 $class = '-default';
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	152 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	153
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	154 #if this selector has a path
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	155 if (@path) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	156 @path = reverse @path;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	157 my $last = pop @path;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	158 my $t = ( $cache->{$class} \|\|= {} );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	159 my $level = 1;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	160 foreach my $prim (@path) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	161 $t = ( $t->{$prim}->{next} \|\|= {} );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	162 $level++;
204 d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config sergey parents: 203 diff changeset	163 }
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config sergey parents: 203 diff changeset	164 $t->{$last}->{level} = $level;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	165 $t->{$last}->{data} = $data;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	166
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	167 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	168 else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	169
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	170 # we dont have a selector, only class
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	171
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	172 $this->_classTemplates->{$class} = $data;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	173 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	174
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	175 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	176 }
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	177 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	178
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	179 sub MatchAlternatives {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	180 my ( $this, $segment, $alternatives, $results ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	181
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	182 my @next;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	183
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	184 foreach my $alt (@$alternatives) {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	185 while ( my ( $selector, $match ) = each %{ $alt->{selector} } ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	186
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	187 my $context = {
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	188 vars => \%{ $alt->{vars} \|\| {} },
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	189 selector => $match->{next}
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	190 };
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	191
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	192 if ( $selector =~ s/^>// ) {
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	193 $context->{immediate} = 1;
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	194 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	195
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	196 if ( my ( $name, $rx ) =
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	197 ( $selector =~ m/^\{(?:(\w+)\:)?(.*)\}$/ ) )
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	198 {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	199
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	200 #this is a regexp
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	201
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	202 if ( my @captures = ( $segment =~ m/($rx)/ ) ) {
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	203 $context->{success} = 1;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	204
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	205 if ($name) {
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	206 $context->{vars}->{$name} = \@captures;
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	207 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	208 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	209 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	210 else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	211
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	212 #this is a segment name
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	213 if ( $segment eq $selector ) {
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	214 $context->{success} = 1;
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	215 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	216 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	217
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	218 # test if there were a match
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	219 if ( delete $context->{success} ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	220 if ( my $data = $match->{data} ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	221
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	222 # interpolate data
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	223 $data =~ s/{(\w+)(?:\:(\d+))?}/
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	224 my ($name,$index) = ($1,$2 \|\| 0);
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	225
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	226 if ($context->{vars}{$name}) {
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	227 $context->{vars}{$name}[$index];
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	228 } else {
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	229 "";
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	230 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	231 /gex;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	232
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	233 push @$results,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	234 { level => $match->{level}, result => $data };
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	235 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	236 push @next, $context if $context->{selector};
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	237 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	238 else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	239
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	240 #repeat current alternative if it's not required to be immediate
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	241 push @next,
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	242 {
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	243 selector => { $selector, $match },
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	244 vars => $alt->{vars}
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	245 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	246 unless $alt->{immediate};
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	247 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	248 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	249 }
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	250
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	251 return \@next;
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	252 }
68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	253
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	254 1;
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	255
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	256 __END__
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	257
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	258 =pod
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	259
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	260 =head1 NAME
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	261
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	262 C<IMPL::Web::Handler::TTView> - использует шаблоны для построения представления.
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	263
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	264 =head1 SYNOPSIS
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	265
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	266 =begin code xml
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	267
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	268 <item id="html-view" type="IMPL::Web::Handler::TTView">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	269 <contentType>text/html</contentType>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	270 <loader id="tt-loader" type="IMPL::Web::View::TTLoader">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	271 <options type="HASH">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	272 <INCLUDE_PATH type="IMPL::Config::Reference">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	273 <target>IMPL::Config</target>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	274 <AppBase>view</AppBase>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	275 </INCLUDE_PATH>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	276 <INTERPOLATE>1</INTERPOLATE>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	277 <POST_CHOMP>1</POST_CHOMP>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	278 <ENCODING>utf-8</ENCODING>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	279 </options>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	280 <ext>.tt</ext>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	281 <initializer>global.tt</initializer>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	282 <layoutBase>layouts</layoutBase>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	283 </loader>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	284 <defaultDocument>default</defaultDocument>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	285 <selectors type="ARRAY">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	286 <item>@HASH => dump</item>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	287 <item>@My::Data::Product => product/info</item>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	288 <item>{action:.*} @My::Data::Product => product/{action}</item>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	289 </selectors>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	290 </item>
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	291
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	292 =end code xml
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	293
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	294 =head1 DESCRIPTION
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	295
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	296 Подбирает шаблон для представления результата, полученного при выполнении следующего обработчика. При
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	297 выборе используется принцип похожий на селекторы C<CSS>, основывающийся на именах ресурсов и их типах
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	298 данных.
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	299
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	300 =head1 SELECTORS
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	301
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	302 =begin text
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	303
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	304 [url-template] [class] => template
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	305
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	306 shoes => product/list
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	307 {action:*.} @My::Data::Product => product/{action}
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	308
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 205 diff changeset	309 stuff >list => product/list
204 d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config sergey parents: 203 diff changeset	310 details => product/details
203 68a59c3358ff Implemented templates selection mechanism sergey parents: 200 diff changeset	311
199 e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	312 =end text
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	313
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	314
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	315 =cut
e743a8481327 Added REST support for forms (with only get and post methods) sergey parents: diff changeset	316

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/TTView.pm @ 250:129e48bb5afb