comparison Lib/IMPL/Object/List.pm @ 163:6ce1f052b90a

temp commit
author wizard
date Tue, 15 Mar 2011 02:32:42 +0300
parents e36ffd8c29db
children 4267a2ac3d46
comparison
equal deleted inserted replaced
162:39c8788eded5 163:6ce1f052b90a
17 @$this = @$data; 17 @$this = @$data;
18 } 18 }
19 } 19 }
20 20
21 sub Append { 21 sub Append {
22 push @{$_[0]}, @_[1 .. $#_];
23 }
24
25 sub AddLast {
22 push @{$_[0]}, @_[1 .. $#_]; 26 push @{$_[0]}, @_[1 .. $#_];
23 } 27 }
24 28
25 sub RemoveLast { 29 sub RemoveLast {
26 return pop @{$_[0]}; 30 return pop @{$_[0]};