Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/RestCustomResource.pm @ 201:0c018a247c8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reworked REST resource classes to be more transparent and intuitive
author sergey
date Tue, 24 Apr 2012 19:52:07 +0400
parents a9dbe534d236
children 5146e17a7b76
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
200
sergey
parents:
diff changeset
1 package IMPL::Web::Application::RestCustomResource;
sergey
parents:
diff changeset
2 use strict;
sergey
parents:
diff changeset
3
sergey
parents:
diff changeset
4 use IMPL::lang qw(:declare :constants);
sergey
parents:
diff changeset
5 use IMPL::declare {
sergey
parents:
diff changeset
6 require => {
sergey
parents:
diff changeset
7 Exception => "IMPL::Exception",
sergey
parents:
diff changeset
8 ArgumentException => '-IMPL::InvalidArgumentException',
201
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
9 ForbiddenException => 'IMPL::Web::ForbiddenException',
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
10 NotFoundException => 'IMPL::Web::NotFoundException'
200
sergey
parents:
diff changeset
11 },
sergey
parents:
diff changeset
12 base => {
sergey
parents:
diff changeset
13 'IMPL::Web::Application::RestBaseResource' => '@_'
sergey
parents:
diff changeset
14 }
sergey
parents:
diff changeset
15 };
sergey
parents:
diff changeset
16
sergey
parents:
diff changeset
17 BEGIN {
sergey
parents:
diff changeset
18 public property get => PROP_GET | PROP_OWNERSET;
sergey
parents:
diff changeset
19 public property put => PROP_GET | PROP_OWNERSET;
sergey
parents:
diff changeset
20 public property post => PROP_GET | PROP_OWNERSET;
sergey
parents:
diff changeset
21 public property delete => PROP_GET | PROP_OWNERSET;
sergey
parents:
diff changeset
22 }
sergey
parents:
diff changeset
23
sergey
parents:
diff changeset
24 sub CTOR {
sergey
parents:
diff changeset
25 my ($this) = @_;
sergey
parents:
diff changeset
26
sergey
parents:
diff changeset
27 die ArgumentException->new("parent") unless $this->parent;
sergey
parents:
diff changeset
28 }
sergey
parents:
diff changeset
29
sergey
parents:
diff changeset
30 sub FetchChildResource {
sergey
parents:
diff changeset
31 my ($this,$id,$action) = @_;
sergey
parents:
diff changeset
32
201
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
33 die NotFoundException->new() if $this->final;
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
34
200
sergey
parents:
diff changeset
35 return $this->contract->Transform( $this->GetImpl($action), { parent => $this, id => $id } )->FetchChildResource($id,$action);
sergey
parents:
diff changeset
36 }
sergey
parents:
diff changeset
37
sergey
parents:
diff changeset
38 sub GetImpl {
sergey
parents:
diff changeset
39 my ($this,$action) = @_;
sergey
parents:
diff changeset
40
sergey
parents:
diff changeset
41 my $method = $this->get or die ForbiddenException->new();
201
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
42 return $this->InvokeMember($method,$action);
200
sergey
parents:
diff changeset
43 }
sergey
parents:
diff changeset
44
sergey
parents:
diff changeset
45 sub PutImpl {
sergey
parents:
diff changeset
46 my ($this,$action) = @_;
sergey
parents:
diff changeset
47 my $method = $this->put or die ForbiddenException->new();
201
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
48 return $this->InvokeMember($method,$action);
200
sergey
parents:
diff changeset
49 }
sergey
parents:
diff changeset
50
sergey
parents:
diff changeset
51 sub PostImpl {
sergey
parents:
diff changeset
52 my ($this,$action) = @_;
sergey
parents:
diff changeset
53 my $method = $this->post or die ForbiddenException->new();
201
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
54 return $this->InvokeMember($method,$action);
200
sergey
parents:
diff changeset
55 }
sergey
parents:
diff changeset
56
sergey
parents:
diff changeset
57 sub DeleteImpl {
sergey
parents:
diff changeset
58 my ($this,$action) = @_;
sergey
parents:
diff changeset
59 my $method = $this->delete or die ForbiddenException->new();
201
0c018a247c8a Reworked REST resource classes to be more transparent and intuitive
sergey
parents: 200
diff changeset
60 return $this->InvokeMember($method,$action);
200
sergey
parents:
diff changeset
61 }
sergey
parents:
diff changeset
62
sergey
parents:
diff changeset
63 1;