lib/SQL/Translator/Object/Procedure.pm

   1 package SQL::Translator::Object::Procedure;
   2 use Moose;
   3 use MooseX::Types::Moose qw(HashRef Int Maybe Str);
   4 use SQL::Translator::Types qw();
   5 use SQL::Translator::Object::Schema;
   6 extends 'SQL::Translator::Object';
   7
   8 has 'name' => (
   9   is => 'rw',
  10   isa => Str,
  11   required => 1
  12 );
  13
  14 has 'contents' => (
  15   is => 'rw',
  16   isa => Str,
  17   required => 1
  18 );
  19
  20 has 'parameters' => (
  21   is => 'rw',
  22   isa => Maybe[HashRef[Int|Str]],
  23   required => 0
  24 );
  25
  26 has 'owner' => (
  27   is => 'rw',
  28   isa => Str,
  29   required => 1
  30 );
  31
  32 has 'comments' => (
  33   is => 'rw',
  34   isa => Str,
  35   required => 0
  36 );
  37
  38 has 'schema' => (
  39   is => 'rw',
  40   isa => Schema,
  41   required => 1,
  42   default => sub { SQL::Translator::Object::Schema->new }
  43 );
  44
  45 1;