annotate Lib/IMPL/Object/List.pm @ 165:76515373dac0

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents 6ce1f052b90a
children 4267a2ac3d46
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: 18
diff changeset
1 package IMPL::Object::List;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
4
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
5 use base qw(IMPL::Object::ArrayObject);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
6 use IMPL::Exception;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
7
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
8 sub as_list {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
9 return wantarray ? @{$_[0]} : $_[0];
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
10 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
11
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
12 sub CTOR {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
13 my ($this,$data) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
14
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
15 if ($data) {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
16 die new IMPL::InvalidArgumentException("The parameter should be a reference to an array") unless UNIVERSAL::isa($data,"ARRAY");
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
17 @$this = @$data;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
18 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
19 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
20
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
21 sub Append {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
22 push @{$_[0]}, @_[1 .. $#_];
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
23 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
24
163
6ce1f052b90a temp commit
wizard
parents: 151
diff changeset
25 sub AddLast {
6ce1f052b90a temp commit
wizard
parents: 151
diff changeset
26 push @{$_[0]}, @_[1 .. $#_];
6ce1f052b90a temp commit
wizard
parents: 151
diff changeset
27 }
6ce1f052b90a temp commit
wizard
parents: 151
diff changeset
28
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
29 sub RemoveLast {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
30 return pop @{$_[0]};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
31 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
32
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
33 sub AddFirst {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
34 return unshift @{$_[0]}, $_[1];
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
35 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
36
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
37 sub RemoveFirst {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
38 return shift @{$_[0]};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
39 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
40
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
41 sub Count {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
42 return scalar @{$_[0]};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
43 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
44
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
45 sub InsertAt {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
46 my ($this,$index,@val) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
47
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
48 splice @$this,($index||0),0,@val;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
49 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
50
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
51 sub RemoveAt {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
52 my ($this,$index,$count) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
53
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
54 $count ||= 1;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
55
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
56 return splice @$this,$index,$count;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
57 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
58
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
59 sub RemoveItem {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
60 my ($this,$item) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
61
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
62 @$this = grep $_ != $item, @$this;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
63
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
64 return $this;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
65 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
66
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
67 sub RemoveItemStr {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
68 my ($this,$item) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
69
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
70 @$this = grep $_ ne $item, @$this;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
71
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
72 return $this;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
73 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
74
151
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
75 sub FindItem {
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
76 my ($this,$item) = @_;
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
77
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
78 for (my $i = 0; $i < @$this; $i++ ) {
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
79 return $i if $this->[$i] == $item
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
80 }
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
81 return undef;
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
82 }
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
83
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
84 sub FindItemStr {
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
85 my ($this,$item) = @_;
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
86
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
87 for (my $i = 0; $i < @$this; $i++ ) {
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
88 return $i if $this->[$i] eq $item
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
89 }
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
90 return undef;
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
91 }
e36ffd8c29db Fixed major bug in conversion from a POST request to the DOM document (when instanceId == 0)
wizard
parents: 63
diff changeset
92
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
93 sub save {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
94 my ($this,$ctx) = @_;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
95
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
96 $ctx->AddVar( item => $_ ) foreach @$this;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
97 }
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
98
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
99 sub restore {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
100 my ($class,$data,$surrogate) = @_;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
101
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
102 my $i = 0;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
103
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
104 if ($surrogate) {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
105 @$surrogate = grep { ($i++)%2 } @$data;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
106 } else {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
107 $surrogate = $class->new([grep { ($i++)%2 } @$data]);
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
108 }
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
109
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
110 return $surrogate;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
111 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
112
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 18
diff changeset
113 1;