Mercurial > pub > Impl

annotate Lib/IMPL/Class/Property/Direct.pm @ 59:0f3e369553bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewritten property implementation (probably become slower but more flexible) Configuration infrastructure in progress (in the aspect of the lazy activation) Initial concept for the code generator
author wizard
date Tue, 09 Mar 2010 02:50:45 +0300
parents 609b59c9f03c
children b0c068da93ac
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::Class::Property::Direct;
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
59
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
4 use base qw(IMPL::Object::Accessor IMPL::Class::Property::Base Exporter);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
5 our @EXPORT = qw(_direct);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
6
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
7 require IMPL::Object::List;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
8 use IMPL::Class::Property;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
9 require IMPL::Exception;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
10
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
11 __PACKAGE__->mk_accessors qw(ExportField);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
12
59
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
13 push @IMPL::Class::Property::Base::factoryParams, qw($field);
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
14
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
15 sub _direct($) {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
16 my ($prop_info) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
17 $prop_info->Implementor( IMPL::Class::Property::Direct->new({ExportField => 1}) );
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
18 return $prop_info;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
19 }
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
59
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
22 sub GenerateGet {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
23 'return ($this->{$field});';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
24 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
25
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
26 sub GenerateSet {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
27 'return ($this->{$field} = $_[0])';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
28 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
29
59
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
30 sub GenerateSetList {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
31 'return(
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
32 wantarray ?
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
33 @{ $this->{$field} = IMPL::Object::List->new(
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
34 (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
35 )} :
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
36 ($this->{$field} = IMPL::Object::List->new(
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
37 (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_]
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
38 ))
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
39 );';
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
40 }
59
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
41
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
42 sub GenerateGetList {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
43 'return(
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
44 wantarray ?
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
45 @{ $this->{$field} ?
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
46 $this->{$field} :
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
47 ( $this->{$field} = IMPL::Object::List->new() )
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
48 } :
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
49 ( $this->{$field} ?
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
50 $this->{$field} :
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
51 ( $this->{$field} = IMPL::Object::List->new() )
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
52 )
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
53 );';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
54 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
55
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
56 sub RemapFactoryParams {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
57 my ($self,$propInfo) = @_;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
58
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
59 return $self->SUPER::RemapFactoryParams($propInfo),$self->FieldName($propInfo);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
60 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
61
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
62 sub Make {
59
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
63 my ($self,$propInfo) = @_;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
64
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
65 $self->SUPER::Make($propInfo);
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
66
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
67 {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
68 no strict 'refs';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
69 if (ref $self and $self->ExportField) {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
70 my $field = $self->FieldName($propInfo);
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
71 *{$propInfo->Class.'::'.$propInfo->Name} = \$field;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
72 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible)
wizard
parents: 55
diff changeset
73 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
74 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
75
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
76 sub FieldName {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
77 my ($self,$propInfo) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
78
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
79 my ($class,$name) = $propInfo->get qw(Class Name);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
80 (my $field = "${class}_$name") =~ s/::/_/g;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
81 return $field;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
82 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
83
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
84 1;