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 |
