updates

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index 180e978..68ed5e8 100644 (file)
--- 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 (file)
--- 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;