sub belongs_to {
my ($class, $rel, $f_class, $cond, $attrs) = @_;
- # assume a foreign key contraint unless defined otherwise
+ # assume a foreign key constraint unless defined otherwise
$attrs->{is_foreign_key_constraint} = 1
if not exists $attrs->{is_foreign_key_constraint};
$attrs->{undef_on_null_fk} = 1