Mercurial > pub > Impl

comparison Lib/IMPL/Object/Fields.pm @ 164:eb3e9861a761

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SQL traits in progress
author wizard
date Mon, 28 Mar 2011 01:36:24 +0400
parents
children 4267a2ac3d46
comparison
equal deleted inserted replaced
163:6ce1f052b90a 164:eb3e9861a761
1 package IMPL::Object::Fields;
2 use strict;
3 use warnings;
4
5 use base 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;