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

Working on DI container
author cin
date Mon, 31 Aug 2015 10:23:42 +0300
parents 4ddb27ff4a0b
children f23fcb19d3c1
line wrap: on
line diff
--- a/Lib/IMPL/Object/List.pm	Fri Aug 28 19:54:53 2015 +0300
+++ b/Lib/IMPL/Object/List.pm	Mon Aug 31 10:23:42 2015 +0300
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 
+use Carp qw(confess);
 use parent qw(IMPL::Object::ArrayObject);
 require IMPL::Exception;
 
@@ -19,10 +20,16 @@
 }
 
 sub Append {
+	confess "Appen method is obsolete use Push instead";
     push @{$_[0]}, @_[1 .. $#_];
 }
 
+sub Push {
+	push @{$_[0]}, @_[1 .. $#_];
+}
+
 sub AddLast {
+	confess "Appen method is obsolete use Push instead";
     push @{$_[0]}, @_[1 .. $#_];
 }