comparison Lib/IMPL/Object/List.pm @ 11:75980091813b

DOM и навигация
author Sergey
date Wed, 02 Sep 2009 17:47:44 +0400
parents e59f44f75f20
children 818c74b038ae
comparison
equal deleted inserted replaced
10:63f6653b094e 11:75980091813b
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