Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/RestCustomResource.pm @ 202:5146e17a7b76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::Web::Application::RestResource fixes, documentation
author sergey
date Wed, 25 Apr 2012 02:49:23 +0400
parents 0c018a247c8a
children
comparison
equal deleted inserted replaced
201:0c018a247c8a 202:5146e17a7b76
17 BEGIN { 17 BEGIN {
18 public property get => PROP_GET | PROP_OWNERSET; 18 public property get => PROP_GET | PROP_OWNERSET;
19 public property put => PROP_GET | PROP_OWNERSET; 19 public property put => PROP_GET | PROP_OWNERSET;
20 public property post => PROP_GET | PROP_OWNERSET; 20 public property post => PROP_GET | PROP_OWNERSET;
21 public property delete => PROP_GET | PROP_OWNERSET; 21 public property delete => PROP_GET | PROP_OWNERSET;
22 }
23
24 sub CTOR {
25 my ($this) = @_;
26
27 die ArgumentException->new("parent") unless $this->parent;
28 } 22 }
29 23
30 sub FetchChildResource { 24 sub FetchChildResource {
31 my ($this,$id,$action) = @_; 25 my ($this,$id,$action) = @_;
32 26
58 my ($this,$action) = @_; 52 my ($this,$action) = @_;
59 my $method = $this->delete or die ForbiddenException->new(); 53 my $method = $this->delete or die ForbiddenException->new();
60 return $this->InvokeMember($method,$action); 54 return $this->InvokeMember($method,$action);
61 } 55 }
62 56
57 sub InvokeMember {
58 my ($this,$method,$action) = @_;
59
60 return $this->$method($action);
61 }
62
63 1; 63 1;