Fix PK info if available.
Ken Youens-Clark [Thu, 9 Oct 2003 21:48:55 +0000 (21:48 +0000)]
lib/SQL/Translator/Parser/YAML.pm

index f00b8d3..e0ee2ea 100644 (file)
@@ -1,7 +1,7 @@
 package SQL::Translator::Parser::YAML;
 
 # -------------------------------------------------------------------
-# $Id: YAML.pm,v 1.2 2003-10-08 22:44:52 kycl4rk Exp $
+# $Id: YAML.pm,v 1.3 2003-10-09 21:48:55 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 darren chamberlain <darren@cpan.org>,
 #   Ken Y. Clark <kclark@cpan.org>.
@@ -23,7 +23,7 @@ package SQL::Translator::Parser::YAML;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;
 
 use SQL::Translator::Schema;
 use SQL::Translator::Utils qw(header_comment);
@@ -63,6 +63,8 @@ sub parse {
 
         for my $fdata ( @fields ) {
             $table->add_field( %$fdata ) or die $table->error;
+            $table->primary_key( $fdata->{'name'} ) 
+                if $fdata->{'is_primary_key'};
         }
     }