Mercurial > pub > Impl

comparison Lib/IMPL/Object/Fields.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
3 use warnings; 3 use warnings;
4 4
5 use parent qw(IMPL::Object::Abstract); 5 use parent qw(IMPL::Object::Abstract);
6 6
7 sub new { 7 sub new {
8 my $class = shift; 8 my $class = shift;
9 9
10 $class = ref $class || $class; 10 $class = ref $class || $class;
11 11
12 my $this = fields::new($class); 12 my $this = fields::new($class);
13 $this->callCTOR(@_); 13 $this->callCTOR(@_);
14 14
15 return $this; 15 return $this;
16 } 16 }
17 17
18 sub surrogate { 18 sub surrogate {
19 my $class = shift; 19 my $class = shift;
20 20
21 $class = ref $class || $class; 21 $class = ref $class || $class;
22 22
23 return fields::new($class); 23 return fields::new($class);
24 } 24 }
25 25
26 1; 26 1;