comparison Lib/IMPL/Object/List.pm @ 168:6148f89bb7bf

IMPL::SQL::Schema::Traits::Diff alfa version IMPL::lang added hash traits
author sourcer
date Mon, 16 May 2011 04:30:38 +0400
parents 1f7a6d762394
children 4d0e1962161c
comparison
equal deleted inserted replaced
167:1f7a6d762394 168:6148f89bb7bf
4 4
5 use parent qw(IMPL::Object::ArrayObject); 5 use parent qw(IMPL::Object::ArrayObject);
6 use IMPL::Exception; 6 use IMPL::Exception;
7 7
8 sub as_list { 8 sub as_list {
9 return wantarray ? @{$_[0]} : $_[0]; 9 return $_[0];
10 } 10 }
11 11
12 sub CTOR { 12 sub CTOR {
13 my ($this,$data) = @_; 13 my ($this,$data) = @_;
14 14