Mercurial > pub > Impl

annotate Lib/IMPL/Security/Principal.pm @ 48:1c3c3e63a314

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
security in progress
author Sergey
date Fri, 26 Feb 2010 01:43:42 +0300
parents a9b70d836b28
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
47
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
1 package IMPL::Security::Principal;
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
2 use strict;
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
3 use warnings;
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
4
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
5 use base qw(IMPL::Object);
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
6 use IMPL::Class::Property;
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
7
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
8 BEGIN {
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
9 public property Name => prop_get;
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
10 public property Description => prop_get;
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
11 }
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
12
48
1c3c3e63a314 security in progress
Sergey
parents: 47
diff changeset
13 my $nobody;
47
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
14
48
1c3c3e63a314 security in progress
Sergey
parents: 47
diff changeset
15 sub nobody {
1c3c3e63a314 security in progress
Sergey
parents: 47
diff changeset
16 $nobody = $_[0]->new(Name => 'nobody', Description => '') unless $nobody;
1c3c3e63a314 security in progress
Sergey
parents: 47
diff changeset
17 return $nobody;
1c3c3e63a314 security in progress
Sergey
parents: 47
diff changeset
18 }
47
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
19
a9b70d836b28 Web::Application development (request controller)
Sergey
parents:
diff changeset
20 1;