comparison Lib/IMPL/Object/List.pm @ 167:1f7a6d762394

SQL schema in progress
author sourcer
date Thu, 12 May 2011 08:57:19 +0400
parents 4267a2ac3d46
children 6148f89bb7bf
comparison
equal deleted inserted replaced
166:4267a2ac3d46 167:1f7a6d762394
38 return shift @{$_[0]}; 38 return shift @{$_[0]};
39 } 39 }
40 40
41 sub Count { 41 sub Count {
42 return scalar @{$_[0]}; 42 return scalar @{$_[0]};
43 }
44
45 sub Item {
46 return $_[0]->[$_[1]];
43 } 47 }
44 48
45 sub InsertAt { 49 sub InsertAt {
46 my ($this,$index,@val) = @_; 50 my ($this,$index,@val) = @_;
47 51