From: Justin Hunter Date: Wed, 19 Aug 2009 10:12:24 +0000 (-0700) Subject: make sql required X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddd6c19a1b2a3987a5bc5fd124068ce5876ae843;p=dbsrgits%2FSQL-Translator-2.0-ish.git make sql required --- diff --git a/lib/SQL/Translator/Object/Procedure.pm b/lib/SQL/Translator/Object/Procedure.pm index 3261321..b8af8ab 100644 --- a/lib/SQL/Translator/Object/Procedure.pm +++ b/lib/SQL/Translator/Object/Procedure.pm @@ -2,7 +2,7 @@ use MooseX::Declare; class SQL::Translator::Object::Procedure { use namespace::autoclean; use Moose; - use MooseX::Types::Moose qw(ArrayRef Int Maybe Str); + use MooseX::Types::Moose qw(ArrayRef Int Str); use aliased 'SQL::Translator::Object::Schema'; extends 'SQL::Translator::Object'; @@ -12,9 +12,10 @@ class SQL::Translator::Object::Procedure { required => 1 ); - has 'sql ' => ( + has 'sql' => ( is => 'rw', isa => Str, + required => 1 ); has 'parameters' => (