formatting changes
[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / Schema.pm
index 411bc20..cc82b13 100644 (file)
@@ -1,12 +1,32 @@
 package SQL::Translator::Object::Schema;
 use Moose;
-use MooseX::Types::Moose qw(ArrayRef Str);
+use MooseX::Types::Moose qw(HashRef Str);
 use SQL::Translator::Types qw(Procedure Table View);
 extends 'SQL::Translator::Object';
 
-has 'name' => (is => 'ro', isa => Str, required => 1, default => '__DEFAULT__');
-has 'tables' => (is => 'ro', isa => ArrayRef[Table], required => 0);
-has 'views' => (is => 'ro', isa => ArrayRef[View], required => 0);
-has 'procedures' => (is => 'ro', isa => ArrayRef[Procedure], required => 0);
+has 'name' => (
+  is => 'rw',
+  isa => Str,
+  required => 1,
+  default => '__DEFAULT__'
+);
+
+has 'tables' => (
+  is => 'rw',
+  isa => HashRef[Table],
+  required => 0
+);
+
+has 'views' => (
+  is => 'rw',
+  isa => HashRef[View],
+  required => 0
+);
+
+has 'procedures' => (
+  is => 'rw',
+  isa => HashRef[Procedure],
+  required => 0
+);
 
 1;