Mercurial > pub > Impl

annotate Lib/IMPL/Object/Meta.pm @ 87:6d3bca490556

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes in the security moodules
author wizard
date Mon, 19 Apr 2010 23:20:46 +0400
parents 76b878ad6596
children 42fbb38d4a48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
1 package IMPL::Object::Meta;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
4
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
5 use base qw(IMPL::Object);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
6 use IMPL::Class::Property;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
7 use IMPL::Class::Property::Direct;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
8
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
9 BEGIN {
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
10 public _direct property Container => prop_get | owner_set;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
11 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
12
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
13 sub meta {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
14 my $class = shift;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
15 my $caller = caller;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
16 my $meta = $class->surrogate();
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
17 $meta->IMPL::Object::Meta::Container(caller);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
18 $meta->callCTOR(@_);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
19 $caller->set_meta($meta);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
20 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
21
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
22 1;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
23
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
24 __END__
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
25
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
26 =pod
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
27
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
28 =head1 SYNOPSIS
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
29
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
30 package Foo;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
31
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
32 meta BarAttribute('Simple bar attribute'); #mark Foo with BarAttribute
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
33
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
34 =head1 DESCRIPTION
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
35
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
36 Базовый класс для мета-свойств класса. Определяет оператор C< meta > для создания метаданных в вызвавшем классе.
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
37
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
38 =head1 MEMBERS
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
39
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
40 =over
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
41
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
42 =item C< Container >
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
43
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
44 Свойство заполняется до вызова конструктора и содержит имя модуля к которому применяется атрибут.
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
45
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
46 =back
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
47
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
48 =cut