Mercurial > pub > Impl
comparison Lib/IMPL/Object/List.pm @ 13:bb8d67f811ea
merge heads
author | Sergey |
---|---|
date | Wed, 02 Sep 2009 23:11:14 +0400 |
parents | 75980091813b |
children | 818c74b038ae |
comparison
equal
deleted
inserted
replaced
12:955b2324c1bf | 13:bb8d67f811ea |
---|---|
39 } | 39 } |
40 | 40 |
41 sub InsertAt { | 41 sub InsertAt { |
42 my ($this,$index,@val) = @_; | 42 my ($this,$index,@val) = @_; |
43 | 43 |
44 splice @$this,$index,0,@val; | 44 splice @$this,($index||0),0,@val; |
45 } | 45 } |
46 | 46 |
47 sub RemoveAt { | 47 sub RemoveAt { |
48 my ($this,$index,$count) = @_; | 48 my ($this,$index,$count) = @_; |
49 | 49 |