Mercurial > pub > Impl

comparison Lib/IMPL/Object/List.pm @ 405:cd6c6e61d442 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Working on DI container
author cin
date Mon, 31 Aug 2015 10:23:42 +0300
parents 4ddb27ff4a0b
children f23fcb19d3c1
comparison
equal deleted inserted replaced
404:9ef75f2029be 405:cd6c6e61d442
1 package IMPL::Object::List; 1 package IMPL::Object::List;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use Carp qw(confess);
5 use parent qw(IMPL::Object::ArrayObject); 6 use parent qw(IMPL::Object::ArrayObject);
6 require IMPL::Exception; 7 require IMPL::Exception;
7 8
8 sub as_list { 9 sub as_list {
9 return $_[0]; 10 return $_[0];
17 @$this = @$data; 18 @$this = @$data;
18 } 19 }
19 } 20 }
20 21
21 sub Append { 22 sub Append {
23 confess "Appen method is obsolete use Push instead";
22 push @{$_[0]}, @_[1 .. $#_]; 24 push @{$_[0]}, @_[1 .. $#_];
23 } 25 }
24 26
27 sub Push {
28 push @{$_[0]}, @_[1 .. $#_];
29 }
30
25 sub AddLast { 31 sub AddLast {
32 confess "Appen method is obsolete use Push instead";
26 push @{$_[0]}, @_[1 .. $#_]; 33 push @{$_[0]}, @_[1 .. $#_];
27 } 34 }
28 35
29 sub RemoveLast { 36 sub RemoveLast {
30 return pop @{$_[0]}; 37 return pop @{$_[0]};