diff Lib/IMPL/Object/List.pm @ 167:1f7a6d762394

SQL schema in progress
author sourcer
date Thu, 12 May 2011 08:57:19 +0400
parents 4267a2ac3d46
children 6148f89bb7bf
line wrap: on
line diff
--- a/Lib/IMPL/Object/List.pm	Sat Apr 23 23:12:06 2011 +0400
+++ b/Lib/IMPL/Object/List.pm	Thu May 12 08:57:19 2011 +0400
@@ -42,6 +42,10 @@
     return scalar @{$_[0]};
 }
 
+sub Item {
+	return $_[0]->[$_[1]];
+}
+
 sub InsertAt {
     my ($this,$index,@val) = @_;