Mercurial > pub > Impl

comparison lib/IMPL/Object/Fields.pm @ 407:c6e90e02dd17 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
comparison
equal deleted inserted replaced
406:f23fcb19d3c1 407:c6e90e02dd17
1 package IMPL::Object::Fields;
2 use strict;
3 use warnings;
4
5 use parent qw(IMPL::Object::Abstract);
6
7 sub new {
8 my $class = shift;
9
10 $class = ref $class || $class;
11
12 my $this = fields::new($class);
13 $this->callCTOR(@_);
14
15 return $this;
16 }
17
18 sub surrogate {
19 my $class = shift;
20
21 $class = ref $class || $class;
22
23 return fields::new($class);
24 }
25
26 1;