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