Mercurial > pub > Impl
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 |