Mercurial > pub > Impl
view Lib/IMPL/Object/List.pm @ 208:3d433a977e3b
corrected RestController for empty PAT_INFO
corrected charset for ErrorHandler
author | sergey |
---|---|
date | Fri, 18 May 2012 18:43:00 +0400 |
parents | 4d0e1962161c |
children | 4ddb27ff4a0b |
line wrap: on
line source
package IMPL::Object::List; use strict; use warnings; use parent qw(IMPL::Object::ArrayObject); use IMPL::Exception; sub as_list { return $_[0]; } sub CTOR { my ($this,$data) = @_; if ($data) { die new IMPL::InvalidArgumentException("The parameter should be a reference to an array") unless UNIVERSAL::isa($data,"ARRAY"); @$this = @$data; } } sub Append { push @{$_[0]}, @_[1 .. $#_]; } sub AddLast { push @{$_[0]}, @_[1 .. $#_]; } sub RemoveLast { return pop @{$_[0]}; } sub AddFirst { return unshift @{$_[0]}, $_[1]; } sub RemoveFirst { return shift @{$_[0]}; } sub Count { return scalar @{$_[0]}; } sub Item { return $_[0]->[$_[1]]; } sub InsertAt { my ($this,$index,@val) = @_; splice @$this,($index||0),0,@val; } sub RemoveAt { my ($this,$index,$count) = @_; $count ||= 1; return splice @$this,$index,$count; } sub RemoveItem { my ($this,$item) = @_; @$this = grep $_ != $item, @$this; return $this; } sub RemoveItemStr { my ($this,$item) = @_; @$this = grep $_ ne $item, @$this; return $this; } sub FindItem { my ($this,$item) = @_; for (my $i = 0; $i < @$this; $i++ ) { return $i if $this->[$i] == $item } return undef; } sub FindItemStr { my ($this,$item) = @_; for (my $i = 0; $i < @$this; $i++ ) { return $i if $this->[$i] eq $item } return undef; } sub save { my ($this,$ctx) = @_; $ctx->AddVar( item => $_ ) foreach @$this; } sub restore { my ($class,$data,$surrogate) = @_; my $i = 0; if ($surrogate) { @$surrogate = grep { ($i++)%2 } @$data; } else { $surrogate = $class->new([grep { ($i++)%2 } @$data]); } return $surrogate; } 1;