lib/SQL/Translator/Object/Procedure.pm

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