Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Constraint.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 56364d0c4b4f
children c6d0f889ef87
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
1 package IMPL::SQL::Schema::Constraint; 1 package IMPL::SQL::Schema::Constraint;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use IMPL::lang qw(:declare is isclass); 5 use IMPL::lang qw(is isclass);
6 6 use IMPL::Const qw(:prop);
7 use parent qw(IMPL::Object IMPL::Object::Disposable); 7 use IMPL::declare {
8 8 base => [
9 use IMPL::Class::Property::Direct; 9 'IMPL::Object' => undef,
10 10 'IMPL::Object::Disposable' => undef
11 BEGIN { 11 ],
12 public _direct property name => PROP_GET; 12 props => [
13 public _direct property table => PROP_GET; 13 name => PROP_RO | PROP_DIRECT,
14 } 14 table => PROP_RO | PROP_DIRECT,
15 15 columns => PROP_RO | PROP_LIST
16 public property columns => PROP_GET | PROP_LIST | PROP_OWNERSET; 16 ]
17 };
17 18
18 my %aliases; 19 my %aliases;
19 20
20 sub CTOR { 21 sub CTOR {
21 my ($this,%args) = @_; 22 my ($this,%args) = @_;