From: Justin Hunter Date: Thu, 3 Sep 2009 06:55:30 +0000 (-0700) Subject: add match_type attribute X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb13230a49da1e28f7f8eec0454fd6a01a3f8c3e;p=dbsrgits%2FSQL-Translator-2.0-ish.git add match_type attribute --- diff --git a/lib/SQL/Translator/Object/Constraint.pm b/lib/SQL/Translator/Object/Constraint.pm index b1db92c..1ffa480 100644 --- a/lib/SQL/Translator/Object/Constraint.pm +++ b/lib/SQL/Translator/Object/Constraint.pm @@ -54,9 +54,14 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object { ); has 'reference_columns' => ( - isa => ArrayRef | Undef, - is => 'rw', - auto_deref => 1 + isa => ArrayRef | Undef, + is => 'rw', + auto_deref => 1 + ); + + has 'match_type' => ( + isa => Str, + is => 'rw' ); around add_column(Column $column) { $self->$orig($column->name, $column) } @@ -66,6 +71,4 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object { method field_names { $self->column_ids } method reference_fields { $self->reference_columns } - - method match_type { } }