Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Type.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
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
1 package IMPL::SQL::Schema::Type;
1 use strict; 2 use strict;
2 use warnings; 3 use warnings;
3 package IMPL::SQL::Schema::Type;
4 4
5 use parent qw(IMPL::Object IMPL::Object::Autofill); 5 use IMPL::lang qw( :compare );
6 6 use IMPL::Const qw(:prop);
7 use IMPL::lang qw( :declare :compare ); 7 use IMPL::declare{
8 8 base => [
9 use IMPL::Class::Property::Direct; 9 'IMPL::Object' => undef,
10 10 'IMPL::Object::Autofill' => '@_'
11 BEGIN { 11 ],
12 public _direct property name => PROP_GET; 12 props => [
13 public _direct property maxLength => PROP_GET; 13 name => PROP_RO | PROP_DIRECT,
14 public _direct property scale => PROP_GET; 14 maxLength => PROP_RO | PROP_DIRECT,
15 public _direct property unsigned => PROP_GET; 15 scale => PROP_RO | PROP_DIRECT,
16 public _direct property zerofill => PROP_GET; 16 unsigned => PROP_RO | PROP_DIRECT,
17 public _direct property tag => PROP_GET; 17 zerofill => PROP_RO | PROP_DIRECT,
18 } 18 tag => PROP_RO | PROP_DIRECT
19 19 ]
20 __PACKAGE__->PassThroughArgs; 20 };
21 21
22 sub CTOR { 22 sub CTOR {
23 my $this = shift; 23 my $this = shift;
24 24
25 $this->{$scale} = 0 if not $this->{$scale}; 25 $this->{$scale} = 0 if not $this->{$scale};