Mercurial > pub > Impl
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 |