164
|
1 package IMPL::Object::Fields;
|
|
2 use strict;
|
|
3 use warnings;
|
|
4
|
166
|
5 use parent qw(IMPL::Object::Abstract);
|
164
|
6
|
|
7 sub new {
|
194
|
8 my $class = shift;
|
|
9
|
|
10 $class = ref $class || $class;
|
|
11
|
|
12 my $this = fields::new($class);
|
|
13 $this->callCTOR(@_);
|
|
14
|
|
15 return $this;
|
164
|
16 }
|
|
17
|
|
18 sub surrogate {
|
194
|
19 my $class = shift;
|
|
20
|
|
21 $class = ref $class || $class;
|
|
22
|
|
23 return fields::new($class);
|
164
|
24 }
|
|
25
|
180
|
26 1;
|