From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Fri, 5 Jun 2009 22:50:34 +0000 (-0700)
Subject: updates
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76764964788aaca6b6e9a3888d4c424e81de47fd;p=dbsrgits%2FSQL-Translator-2.0-ish.git

updates
---

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index 180e978..68ed5e8 100644
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -7,7 +7,7 @@ has 'name' => (is => 'ro', isa => Str, required => 1);
 has 'type' => (is => 'ro', isa => Str, required => 1);
 has 'size' => (is => 'ro', isa => Int, required => 1);
 has 'is_nullable' => (is => 'ro', isa => Bool, required => 1, default => 1);
-has 'is_auto_increment' => (is => 'ro', isa => Bool, required => 0, default => 0);
+has 'is_auto_increment' => (is => 'ro', isa => Bool, required => 1, default => 0);
 has 'default_value' => (is => 'ro', isa => Str, required => 0);
 has 'trigger' => (is => 'ro', isa => Trigger, required => 0);
 
diff --git a/lib/SQL/Translator/Object/Procedure.pm b/lib/SQL/Translator/Object/Procedure.pm
index fe5cae3..4cabee8 100644
--- a/lib/SQL/Translator/Object/Procedure.pm
+++ b/lib/SQL/Translator/Object/Procedure.pm
@@ -2,8 +2,13 @@ package SQL::Translator::Object::Procedure;
 use Moose;
 use MooseX::Types::Moose qw(Str);
 use SQL::Translator::Types qw();
+use SQL::Translator::Object::Schema;
 
 has 'name' => (is => 'ro', isa => Str, required => 1);
 has 'contents' => (is => 'ro', isa => Str, required => 1);
+has 'parameters' => (is => 'ro', isa => Maybe[ArrayRef[Int|Str]], required => 0);	
+has 'owner' => (is => 'ro', isa => Str, required => 1);
+has 'comments' => (is => 'ro', isa => Str, required => 0);
+has 'schema' => (is => 'ro', isa => Schema, required => 1, default => sub { SQL::Translator::Object::Schema->new });
 
 1;