Mercurial > pub > Impl
view Lib/IMPL/SQL/Schema/Constraint/PrimaryKey.pm @ 281:a8dbddf491dd
refactoring
*IMPL::declare reset abstractProps static property after implementing these props
*IMPL::Serialization: fixed bug with multiple text parts inside one node
*IMPL::Web::Handler::TTView: removed obsolete property 'location' from 'view' template variable
author | cin |
---|---|
date | Mon, 11 Feb 2013 00:58:22 +0400 |
parents | 4ddb27ff4a0b |
children |
line wrap: on
line source
package IMPL::SQL::Schema::Constraint::PrimaryKey; use strict; use parent qw(IMPL::SQL::Schema::Constraint::Index); use IMPL::Class::Property; __PACKAGE__->PassThroughArgs; __PACKAGE__->RegisterAlias('pk'); BEGIN { public _direct property connectedFK => prop_get; } sub CTOR { my ($this,%args) = @_; $this->{$connectedFK} = {}; } sub ConnectFK { my ($this,$FK) = @_; UNIVERSAL::isa($FK,'IMPL::SQL::Schema::Constraint::ForeignKey') or die new Exception('Aprimary key could be connected only to a foreign key'); not exists $this->{$connectedFK}->{$FK->uniqName} or die new Exception('This primary key already conneted with the specified foreing key',$FK->name,$FK->table->name); $this->{$connectedFK}->{$FK->uniqName} = $FK; } sub DisconnectFK { my ($this,$FK) = @_; delete $this->{$connectedFK}->{$FK->uniqName}; } sub Dispose { my ($this) = @_; delete $this->{$connectedFK}; $this->SUPER::Dispose; } 1;