formatting changes

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / Procedure.pm

diff --git a/lib/SQL/Translator/Object/Procedure.pm b/lib/SQL/Translator/Object/Procedure.pm
index 07397bd..945eaee 100644 (file)
--- a/lib/SQL/Translator/Object/Procedure.pm
+++ b/lib/SQL/Translator/Object/Procedure.pm
@@ -1,15 +1,45 @@
 package SQL::Translator::Object::Procedure;
 use Moose;
-use MooseX::Types::Moose qw(Str);
+use MooseX::Types::Moose qw(HashRef Int Str);
 use SQL::Translator::Types qw();
 use SQL::Translator::Object::Schema;
 extends 'SQL::Translator::Object';
 
-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 });
+has 'name' => (
+  is => 'rw',
+  isa => Str,
+  required => 1
+);
+
+has 'contents' => (
+  is => 'rw',
+  isa => Str,
+  required => 1
+);
+
+has 'parameters' => (
+  is => 'rw',
+  isa => Maybe[HashRef[Int|Str]],
+  required => 0
+);
+
+has 'owner' => (
+  is => 'rw',
+  isa => Str,
+  required => 1
+);
+
+has 'comments' => (
+  is => 'rw',
+  isa => Str,
+  required => 0
+);
+
+has 'schema' => (
+  is => 'rw',
+  isa => Schema,
+  required => 1,
+  default => sub { SQL::Translator::Object::Schema->new }
+);
 
 1;