comparison Lib/IMPL/Object/List.pm @ 18:818c74b038ae

DOM Schema + tests
author Sergey
date Thu, 10 Sep 2009 17:42:47 +0400
parents 75980091813b
children 16ada169ca75
comparison
equal deleted inserted replaced
17:7f88e01b58f8 18:818c74b038ae
17 @$this = @$data; 17 @$this = @$data;
18 } 18 }
19 } 19 }
20 20
21 sub Append { 21 sub Append {
22 push @{$_[0]}, @_{1 .. @$_-1}; 22 push @{$_[0]}, @_[1 .. $#_];
23 } 23 }
24 24
25 sub RemoveLast { 25 sub RemoveLast {
26 return pop @{$_[0]}; 26 return pop @{$_[0]};
27 } 27 }