Mercurial > pub > site.implab

annotate lib/Implab/Web/Resources/Root.pm @ 16:e69c970c3ddd default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Tue, 20 May 2014 01:28:48 +0400
parents 573272ec604b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
aac1085b256d initial commit
cin
parents:
diff changeset
1 package Implab::Web::Resources::Root;
aac1085b256d initial commit
cin
parents:
diff changeset
2 use strict;
aac1085b256d initial commit
cin
parents:
diff changeset
3
aac1085b256d initial commit
cin
parents:
diff changeset
4 use IMPL::declare {
aac1085b256d initial commit
cin
parents:
diff changeset
5 require => {
aac1085b256d initial commit
cin
parents:
diff changeset
6 LibraryResource => '-Benzin::Web::Resources::Doxygen::Library',
11
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
7 UserResource => '-Benzin::Web::Resources::UserResource',
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
8 Sec => 'IMPL::Security'
0
aac1085b256d initial commit
cin
parents:
diff changeset
9 },
aac1085b256d initial commit
cin
parents:
diff changeset
10 base => [
aac1085b256d initial commit
cin
parents:
diff changeset
11 'IMPL::Web::Application::Resource' => '@_'
aac1085b256d initial commit
cin
parents:
diff changeset
12 ]
aac1085b256d initial commit
cin
parents:
diff changeset
13 };
aac1085b256d initial commit
cin
parents:
diff changeset
14
aac1085b256d initial commit
cin
parents:
diff changeset
15 sub children {
11
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
16 my $this = shift;
0
aac1085b256d initial commit
cin
parents:
diff changeset
17 return {
aac1085b256d initial commit
cin
parents:
diff changeset
18 library => {
11
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
19 class => LibraryResource,
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
20 connection => $this->application->connections->{doxLibrary}
0
aac1085b256d initial commit
cin
parents:
diff changeset
21 },
aac1085b256d initial commit
cin
parents:
diff changeset
22 user => {
11
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
23 model => sub {
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
24 Sec->principal;
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
25 },
573272ec604b almost comlete doxygen library
sergey
parents: 0
diff changeset
26 role => 'user',
0
aac1085b256d initial commit
cin
parents:
diff changeset
27 class => UserResource,
aac1085b256d initial commit
cin
parents:
diff changeset
28 components => [qw(login logout passwd edit)]
aac1085b256d initial commit
cin
parents:
diff changeset
29 }
aac1085b256d initial commit
cin
parents:
diff changeset
30 };
aac1085b256d initial commit
cin
parents:
diff changeset
31 }
aac1085b256d initial commit
cin
parents:
diff changeset
32
aac1085b256d initial commit
cin
parents:
diff changeset
33 1;