projects
/
DBIx-DBSchema.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FK removal
[DBIx-DBSchema.git]
/
DBSchema
/
ForeignKey.pm
diff --git
a/DBSchema/ForeignKey.pm
b/DBSchema/ForeignKey.pm
index
c47286c
..
2dfc93a
100644
(file)
--- a/
DBSchema/ForeignKey.pm
+++ b/
DBSchema/ForeignKey.pm
@@
-2,7
+2,7
@@
package DBIx::DBSchema::ForeignKey;
use strict;
use strict;
-our $VERSION = '0.1';
+our $VERSION = '0.1
1
';
our $DEBUG = 0;
=head1 NAME
our $DEBUG = 0;
=head1 NAME
@@
-77,7
+77,7
@@
sub new {
=item constraint [ CONSTRAINT_NAME ]
=item constraint [ CONSTRAINT_NAME ]
-Returns or sets the
foreign table
name
+Returns or sets the
constraint
name
=cut
=cut
@@
-203,8
+203,6
@@
sub on_update {
}
}
}
}
-
-
=item sql_foreign_key
Returns an SQL FOREIGN KEY statement.
=item sql_foreign_key
Returns an SQL FOREIGN KEY statement.
@@
-233,8
+231,11
@@
sub cmp {
my( $self, $other ) = @_;
$self->table eq $other->table
my( $self, $other ) = @_;
$self->table eq $other->table
- and $self->columns_sql eq $other->columns_sql
+ and $self->columns_sql
eq $other->columns_sql
and $self->references_sql eq $other->references_sql
and $self->references_sql eq $other->references_sql
+ and uc($self->match) eq uc($other->match)
+ and uc($self->on_delete) eq uc($other->on_delete)
+ and uc($self->on_update) eq uc($other->on_update)
;
}
;
}