annotate Lib/IMPL/Object/Fields.pm @ 366:935629bf80df

model metadata, in progress
author cin
date Mon, 02 Dec 2013 17:44:38 +0400
parents 4d0e1962161c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
1 package IMPL::Object::Fields;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
2 use strict;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
3 use warnings;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
4
166
4267a2ac3d46 Added Class::Template,
wizard
parents: 164
diff changeset
5 use parent qw(IMPL::Object::Abstract);
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
6
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
7 sub new {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
8 my $class = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
9
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
10 $class = ref $class || $class;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
11
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
12 my $this = fields::new($class);
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
13 $this->callCTOR(@_);
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
14
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
15 return $this;
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
16 }
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
17
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
18 sub surrogate {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
19 my $class = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
20
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
21 $class = ref $class || $class;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
22
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
23 return fields::new($class);
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
24 }
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
25
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 166
diff changeset
26 1;