Mercurial > pub > Impl

annotate lib/IMPL/Object/ArrayObject.pm @ 416:cc2cf8c0edc2 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author cin
date Thu, 29 Oct 2015 03:50:25 +0300
parents c6e90e02dd17
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
407
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
1 package IMPL::Object::ArrayObject;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
2 use strict;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
3 use warnings;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
4
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
5 use parent qw(IMPL::Object::Abstract);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
6
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
7 sub new {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
8 my $class = shift;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
9 my $self = bless [], ref $class || $class;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
10 $self->callCTOR(@_);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
11 return $self;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
12 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
13
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
14 sub surrogate {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
15 return bless [], ref $_[0] || $_;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
16 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
17
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
18 1;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
19