comparison Lib/Schema/DB/Constraint/ForeignKey.pm @ 166:4267a2ac3d46

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents 16ada169ca75
children
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package Schema::DB::Constraint::ForeignKey; 1 package Schema::DB::Constraint::ForeignKey;
2 use strict; 2 use strict;
3 use Common; 3 use Common;
4 use base qw(Schema::DB::Constraint); 4 use parent qw(Schema::DB::Constraint);
5 5
6 BEGIN { 6 BEGIN {
7 DeclareProperty ReferencedPrimaryKey => ACCESS_READ; 7 DeclareProperty ReferencedPrimaryKey => ACCESS_READ;
8 DeclareProperty OnDelete => ACCESS_READ; 8 DeclareProperty OnDelete => ACCESS_READ;
9 DeclareProperty OnUpdate => ACCESS_READ; 9 DeclareProperty OnUpdate => ACCESS_READ;