Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Column.pm @ 278:4ddb27ff4a0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents 5c82eec23bb6
children 68d905f8dc43
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
1 use strict; 1 use strict;
2 package IMPL::SQL::Schema::Column; 2 package IMPL::SQL::Schema::Column;
3 use parent qw(IMPL::Object IMPL::Object::Autofill);
4 3
5 use IMPL::lang qw( :DEFAULT :compare :declare :hash ); 4 use IMPL::lang qw( :DEFAULT :compare :hash );
6 use IMPL::Class::Property::Direct;
7 use IMPL::Exception(); 5 use IMPL::Exception();
8 6 use IMPL::Const qw(:prop);
9 BEGIN { 7 use IMPL::declare {
10 public _direct property name => PROP_GET; 8 base => [
11 public _direct property type => PROP_GET; 9 'IMPL::Object' => undef,
12 public _direct property isNullable => PROP_GET; 10 'IMPL::Object::Autofill' => '@_'
13 public _direct property defaultValue => PROP_GET; 11 ],
14 public _direct property tag => PROP_GET; 12 props => [
15 } 13 name => PROP_RO | PROP_DIRECT,
16 14 type => PROP_RO | PROP_DIRECT,
17 __PACKAGE__->PassThroughArgs; 15 isNullable => PROP_RO | PROP_DIRECT,
16 defaultValue => PROP_RO | PROP_DIRECT,
17 tag => PROP_RO | PROP_DIRECT
18 ]
19 };
18 20
19 sub CTOR { 21 sub CTOR {
20 my $this = shift; 22 my $this = shift;
21 23
22 $this->{$name} or 24 $this->{$name} or