pub/Impl: Lib/IMPL/Web/Application/RestResource.pm annotate

annotate Lib/IMPL/Web/Application/RestResource.pm @ 198:2ffe6f661605

Implemented IMPL::Web::Handler::RestController fixes in IMPL::Serialization completed IMPL::Web::Application::RestResource added IMPL::Web::Handler::JSONView added IMPL::Web::RestContract

author	cin
date	Fri, 20 Apr 2012 16:06:36 +0400
parents	6b1dda998839
children	e743a8481327

rev	line source
196 a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	1 package IMPL::Web::Application::RestResource;
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	2 use strict;
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	3
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	4 use IMPL::lang qw(:declare :constants is);
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	5 use IMPL::Exception();
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	6
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	7 use IMPL::declare {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	8 require => {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	9 ForbiddenException => 'IMPL::Web::ForbiddenException',
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	10 InvalidOpException => '-IMPL::InvalidOperationException',
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	11 ArgumentException => '-IMPL::InvalidArgumentException',
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	12 TTransform => '-IMPL::Transform'
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	13 },
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	14 base => {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	15 'IMPL::Object' => undef,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	16 'IMPL::Object::Autofill' => '@_'
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	17 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	18 };
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	19
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	20 BEGIN {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	21 public property target => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	22 public property methods => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	23 public property childRegex => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	24 public property list => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	25 public property fetch => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	26 public property insert => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	27 public property update => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	28 public property delete => PROP_GET \| PROP_OWNERSET;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	29 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	30
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	31 sub CTOR {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	32 my ($this) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	33
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	34 die ArgumentException->new("target") unless $this->target;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	35 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	36
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	37 sub GetHttpImpl {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	38 my($this,$method) = @_;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	39
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	40 my %map = (
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	41 GET => 'GetImpl',
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	42 PUT => 'PutImpl',
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	43 POST => 'PostImpl',
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	44 DELETE => 'DeleteImpl'
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	45 );
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	46
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	47 return $map{$method};
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	48 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	49
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	50 sub InvokeHttpMethod {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	51 my ($this,$method,$childId,$action) = @_;
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	52
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	53 my $impl = $this->GetHttpImpl($method) \|\| 'HttpFallbackImpl';
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	54
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	55 return $this->$impl($childId,$action);
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	56 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	57
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	58 sub GetImpl {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	59 my ($this,$id,$action) = @_;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	60
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	61 my $rx;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	62 my $method;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	63 if (length $id == 0) {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	64 $method = $this->list or die ForbiddenException->new();
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	65 } elsif ($this->methods and $method = $this->methods->{$id}) {
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	66 if (ref $method eq 'HASH' and not $method->{allowGet}) {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	67 die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	68 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	69 } elsif($rx = $this->childRegex and $id =~ m/$rx/ ) {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	70 $method = $this->fetch or die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	71
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	72 $method = {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	73 method => $method,
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	74 parameters => [qw(id)]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	75 } unless ref $method;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	76
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	77 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	78
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	79 return $this->InvokeMember($method,$id,$action);
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	80 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	81
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	82 sub PutImpl {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	83 my ($this,$id,$action) = @_;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	84
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	85 my $rx = $this->childRegex;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	86 if ( $rx and $id =~ m/$rx/ and $this->update ) {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	87 my $method = $this->update or die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	88
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	89 $method = {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	90 method => $method,
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	91 parameters => [qw(id query)]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	92 } unless ref $method;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	93
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	94 return $this->InvokeMember($method,$id,$action);
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	95 } else {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	96 die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	97 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	98 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	99
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	100 sub PostImpl {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	101 my ($this,$id,$action) = @_;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	102
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	103 my $method;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	104
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	105 if (length $id == 0) {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	106 $method = $this->insert or die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	107
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	108 $method = {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	109 method => $method,
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	110 parameters => [qw(query)]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	111 } unless ref $method;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	112 } elsif ($method = $this->methods->{$id}) {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	113 die ForbiddenException->new() unless ref $method and $method->{allowPost};
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	114 } else {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	115 die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	116 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	117
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	118 return $this->InvokeMemeber($method,$id,$action);
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	119 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	120
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	121 sub DeleteImpl {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	122 my ($this,$id,$action) = @_;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	123
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	124 my $rx = $this->childRegex;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	125 if ($rx and $id =~ m/$rx/ and my $method = $this->delete) {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	126
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	127 $method = {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	128 method => $method,
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	129 parameters => [qw(id)]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	130 } unless ref $method;
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	131
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	132 return $this->InvokeMember($method,$id,$action);
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	133 } else {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	134 die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	135 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	136 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	137
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	138 sub HttpFallbackImpl {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	139 die ForbiddenException->new();
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	140 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	141
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	142 sub InvokeMember {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	143 my ($this,$method,$id,$action) = @_;
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	144
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	145 #normalize method info
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	146 if (not ref $method) {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	147 $method = {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	148 method => $method
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	149 };
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	150 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	151
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	152 if (ref $method eq 'HASH') {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	153 my @args;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	154 my $member = $method->{method} or die InvalidOpException->new("A member name isn't specified");
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	155 if (my $params = $method->{parameters}) {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	156 if (ref $params eq 'HASH') {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	157 @args = map {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	158 $_,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	159 $this->MakeParameter($params->{$_},$id,$action)
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	160 } keys %$params;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	161 } elsif (ref $params eq 'ARRAY') {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	162 @args = map $this->MakeParameter($_,$id,$action), @$params;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	163 } else {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	164 @args = ($this->MakeParameter($params,$id,$action));
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	165 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	166 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	167 $this->target->$member(@args);
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	168 } else {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	169 die InvalidOpException->new("Unsupported type of the method information", ref $method);
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	170 }
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	171 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	172
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	173 sub MakeParameter {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	174 my ($this,$param,$id,$action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	175
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	176 if ($param) {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	177 if (is $param, TTransform ) {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	178 return $param->Transform($this,$action->query);
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	179 } elsif ($param and not ref $param) {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	180 my %std = (
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	181 id => $id,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	182 action => $action,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	183 query => $action->query
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	184 );
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	185
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	186 return $std{$param} \|\| $action->query->param($param);
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	187 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	188 } else {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	189 return undef;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	190 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	191 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	192
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	193
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	194
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	195
196 a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	196 1;
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	197
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	198 __END__
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	199
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	200 =pod
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	201
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	202 =head1 NAME
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	203
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	204 C<IMPL::Web::Application::RestResource> - ресурс Rest вебсервиса.
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	205
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	206 =head1 SYNOPSIS
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	207
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	208 =begin text
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	209
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	210 [REQUEST]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	211 GET /artists
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	212
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	213 [RESPONSE]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	214 <artists>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	215 <artist id="1">
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	216 <name>The Beatles <name/>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	217 </atrist>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	218 <artist id="2">
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	219 <name>Bonobo</name>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	220 </artist>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	221 </artists>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	222
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	223 [REQUEST]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	224 GET /artists/1/cds?title='Live at BBC'
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	225
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	226 [RESPONSE]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	227 <cds>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	228 <cd id="14">
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	229 <title>Live at BBC 1</title>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	230 </cd>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	231 <cd id="15">
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	232 <title>Live at BBC 2</title>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	233 </cd>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	234 </cds>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	235
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	236 [REQUEST]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	237 GET /cds/15
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	238
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	239 [RESPONSE]
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	240 <cd id="15">
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	241 <title>Live at BBC 2</title>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	242 </cd>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	243
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	244 =end text
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	245
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	246 =begin code
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	247
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	248 use IMPL::require {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	249 TRes => 'IMPL::Web:Application::RestResource',
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	250 DataContext => 'My::App::DataContext'
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	251 };
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	252
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	253 my $cds = TRes->new(
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	254 DataContext->Default,
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	255 {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	256 methods => {
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	257 history => {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	258 allowGet => 1,
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	259 method => 'GetHistory',
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	260 parameters => [qw(from to)]
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	261 },
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	262 }
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	263 list => 'search',
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	264 fetch => 'GetItemById'
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	265 }
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	266 );
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	267
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	268 =end code
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	269
196 a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	270 =head1 DESCRIPTION
a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	271
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	272 Каждый ресурс представляет собой коллекцию и реализует методы C<HTTP> C<GET,POST,PUT,DELETE>.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	273
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	274 =head2 HTTP METHODS
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	275
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	276 =head3 C<GET>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	277
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	278 Возвращает коллекцию дочерних ресурсов.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	279
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	280 =head3 C<GET {id}>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	281
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	282 Возвращает дочерний объект с идентификатором C<id>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	283
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	284 =head3 C<GET {method}>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	285
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	286 Вызывает метод C<method> и возвращает его результаты. При публикации методов доступных
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	287 через C<GET> данные методы не должны вносить изменений в предметную область.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	288
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	289 =head3 C<PUT {id}>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	290
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	291 Обновляет дочерний ресурс с указанным идентификатором.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	292
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	293 =head3 C<DELETE {id}>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	294
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	295 Удаляет дочерний ресурс с указанным идентификатором.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	296
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	297 =head3 C<POST>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	298
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	299 Добавляет новый дочерний ресурс в коллекцию.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	300
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	301 =head3 C<POST {method}>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	302
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	303 Вызывает метод C<method>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	304
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	305 =head2 HTTP METHOD MAPPING
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	306
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	307 =head3 C<POST {method}>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	308
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	309 Вызывает метод C<method>, в отличии от C<GET> методы опубликованные через C<POST> могут вносить
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	310 изменения в объекты.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	311
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	312 =head1 MEMBERS
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	313
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	314 =head2 C<[get]target>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	315
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	316 Объект (также может быть и класс), обеспечивающий функционал ресурса.
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	317
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	318 =head2 C<[get]methods>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	319
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	320 Содержит описания методов, которые будут публиковаться как дочерние ресурсы.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	321
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	322 =head2 C<[get]childRegex>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	323
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	324 Содержит регулярное выражение для идентификаторов дочерних объектов. Если оно
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	325 не задано, то данный ресурс не является коллекцией.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	326
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	327 =head2 C<[get]fetch>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	328
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	329 Содержит описание метода для получения дочернего объекта. Если данный метод
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	330 отсутствует, то дочерние ресурсы не получится адресовать относительно данного.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	331 По умолчанию получает идентификатор дочернего ресурса первым параметром.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	332
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	333 =head2 C<[get]list>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	334
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	335 Описание метода для получения списка дочерних объектов. По умолчанию не
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	336 получает параметров.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	337
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	338 =head2 C<[get]insert>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	339
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	340 Описание метода для добавление дочернего ресурса. По умолчанию получает
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	341 объект C<CGI> описывабщий текущий запрос первым параметром.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	342
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	343 =head2 C<[get]update>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	344
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	345 Описание метода для обновления дочернего ресурса. По умолчанию получает
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	346 идентификатор дочернего ресурса и объект C<CGI> текущего запроса.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	347
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	348 =head2 C<[get]delete>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	349
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	350 Описание метода для удаления дочернего ресурса. По умолчанию получает
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	351 идентификатор дочернего ресурса.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	352
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	353 =head2 C<GetImpl($child,$action)>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	354
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	355 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	356
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	357 =item C<$child>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	358
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	359 Идентификатор дочернего ресутсра
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	360
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	361 =item C<$action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	362
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	363 Текущий запрос C<IMPL::Web::Application::Action>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	364
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	365 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	366
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	367 Переадресует запрос нужному методу внутреннего объекта C<target> при
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	368 помощи C<InvokeMember>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	369
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	370 =head2 C<PutImpl($child,$action)>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	371
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	372 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	373
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	374 =item C<$child>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	375
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	376 Идентификатор дочернего ресутсра
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	377
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	378 =item C<$action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	379
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	380 Текущий запрос C<IMPL::Web::Application::Action>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	381
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	382 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	383
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	384 Переадресует запрос нужному методу внутреннего объекта C<target> при
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	385 помощи C<InvokeMember>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	386
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	387 =head2 C<PostImpl($child,$action)>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	388
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	389 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	390
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	391 =item C<$child>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	392
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	393 Идентификатор дочернего ресутсра
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	394
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	395 =item C<$action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	396
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	397 Текущий запрос C<IMPL::Web::Application::Action>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	398
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	399 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	400
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	401 Переадресует запрос нужному методу внутреннего объекта C<target> при
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	402 помощи C<InvokeMember>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	403
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	404 =head2 C<DeleteImpl($child,$action)>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	405
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	406 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	407
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	408 =item C<$child>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	409
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	410 Идентификатор дочернего ресутсра
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	411
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	412 =item C<$action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	413
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	414 Текущий запрос C<IMPL::Web::Application::Action>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	415
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	416 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	417
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	418 Переадресует запрос нужному методу внутреннего объекта C<target> при
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	419 помощи C<InvokeMember>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	420
197 6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	421 =head2 C<InvokeMember($memberInfo,$child,$action)>
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions sergey parents: 196 diff changeset	422
198 2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	423 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	424
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	425 =item C<$memberInfo>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	426
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	427 Описание члена внутреннего объекта C<target>, который нужно вызвать.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	428
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	429 =item C<$child>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	430
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	431 Идентификатор дочернего ресутсра
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	432
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	433 =item C<$action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	434
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	435 Текущий запрос C<IMPL::Web::Application::Action>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	436
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	437 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	438
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	439 Вызывает метод внутреннего объекта C<target>, предварительно подготовив
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	440 параметры на основе описания C<$memberInfo> и при помощи С<MakeParameter()>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	441
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	442 =head2 C<MakeParameter($paramDef,$child,$action)>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	443
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	444 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	445
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	446 =item C<$paramDef>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	447
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	448 Описание параметра, может быть C<IMPL::Transform> или простая строка.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	449
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	450 Если описание параметра - простая строка, то ее имя либо
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	451
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	452 =over
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	453
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	454 =item C<id>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	455
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	456 Идентификатор дочернего ресурса
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	457
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	458 =item C<query>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	459
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	460 Объект C<CGI> текущего запроса
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	461
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	462 =item C<action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	463
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	464 Текущий запрос C<IMPL::Web::Application::Action>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	465
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	466 =item C<любое другое значение>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	467
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	468 Интерпретируется как параметр текущего запроса.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	469
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	470 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	471
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	472 Если описание параметра - объект C<IMPL::Transform>, то будет выполнено это преобразование над C<CGI>
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	473 объектом текущего запроса C<< $paramDef->Transform($action->query) >>.
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	474
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	475 =back
2ffe6f661605 Implemented IMPL::Web::Handler::RestController cin parents: 197 diff changeset	476
196 a705e848dcc7 added IMPL::Config::Reference cin parents: diff changeset	477 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/RestResource.pm @ 198:2ffe6f661605