[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / ForeignKey.pm

use MooseX::Declare;
class SQL::Translator::Object::ForeignKey {
    use SQL::Translator::Types qw(Index PrimaryKey);
    extends 'SQL::Translator::Object::Constraint';
    
    has '+type' => (
        default => 'FOREIGN_KEY',
    );
    
    has 'references' => (
        isa => PrimaryKey | Index,
        is => 'rw',
        required => 1,
    );
}
Commit	Line	Data
4f4fd192	1	use MooseX::Declare;
	2	class SQL::Translator::Object::ForeignKey {
	3	use SQL::Translator::Types qw(Index PrimaryKey);
	4	extends 'SQL::Translator::Object::Constraint';
	5
	6	has '+type' => (
	7	default => 'FOREIGN_KEY',
	8	);
	9
	10	has 'references' => (
	11	isa => PrimaryKey \| Index,
	12	is => 'rw',
	13	required => 1,
	14	);
	15	}