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 |
