comparison Lib/IMPL/SQL/Schema/Constraint.pm @ 315:77df11605d3a

code cleanup
author cin
date Tue, 07 May 2013 02:19:24 +0400
parents c6d0f889ef87
children
comparison
equal deleted inserted replaced
314:109f28643025 315:77df11605d3a
79 } 79 }
80 80
81 sub RegisterAlias { 81 sub RegisterAlias {
82 my ($self,$alias) = @_; 82 my ($self,$alias) = @_;
83 83
84 $aliases{$alias} = $self->typeof; 84 $aliases{$alias} = typeof($self);
85 } 85 }
86 86
87 1; 87 1;