Mercurial > pub > Impl

comparison Lib/IMPL/Object/List.pm @ 166:4267a2ac3d46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents 6ce1f052b90a
children 1f7a6d762394
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package IMPL::Object::List; 1 package IMPL::Object::List;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base 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 wantarray ? @{$_[0]} : $_[0];
10 } 10 }