lib/SQL/Translator/Object/Procedure.pm

   1 package SQL::Translator::Object::Procedure;
   2 use namespace::autoclean;
   3 use Moose;
   4 use MooseX::Types::Moose qw(HashRef Int Maybe Str);
   5 use MooseX::AttributeHelpers;
   6 use SQL::Translator::Types qw();
   7 use aliased 'SQL::Translator::Object::Schema';
   8 extends 'SQL::Translator::Object';
   9
  10 has 'name' => (
  11     is => 'rw',
  12     isa => Str,
  13     required => 1
  14 );
  15
  16 has 'contents' => (
  17     is => 'rw',
  18     isa => Str,
  19     required => 1
  20 );
  21
  22 has 'parameters' => (
  23     metaclass => 'Collection::Hash',
  24     is => 'rw',
  25     isa => Maybe[HashRef[Int|Str]],
  26     provides => {
  27         exists => 'exists_parameter',
  28         keys   => 'parameter_ids',
  29         get    => 'get_parameter',
  30         set    => 'set_parameter',
  31     },
  32 );
  33
  34 has 'owner' => (
  35     is => 'rw',
  36     isa => Str,
  37     required => 1
  38 );
  39
  40 has 'comments' => (
  41     is => 'rw',
  42     isa => Str,
  43 );
  44
  45 has 'schema' => (
  46     is => 'rw',
  47     isa => Schema,
  48     required => 1,
  49     default => sub { Schema->new }
  50 );
  51
  52 __PACKAGE__->meta->make_immutable;
  53
  54 1;