pub/Impl: Lib/IMPL/Object/List.pm comparison

in develop

comparison

equal deleted inserted replaced

-:3b418b134d8c
+:78cd38551534
+package IMPL::Object::List;
+use strict;
+use warnings;
+use base qw(IMPL::Object::ArrayObject);
+sub as_list {
+return $_[0];
+}
+sub Append {
+push @{$_[0]}, @_{1 .. @$_-1};
+}
+sub RemoveLast {
+return pop @{$_[0]};
+}
+sub AddFirst {
+return unshift @{$_[0]}, $_[1];
+}
+sub RemoveFirst {
+return shift @{$_[0]};
+}
+sub Count {
+return scalar @{$_[0]};
+}
+sub InsertAt {
+my ($this,$index,@val) = @_;
+splice @$this,$index,0,@val;
+}
+sub RemoveAt {
+my ($this,$index,$count) = @_;
+$count ||= 1;
+return splice @$this,$index,$count;
+}
+1;

Mercurial > pub > Impl