Commit | Line | Data |
c5051351 |
1 | package SQL::Translator::Object::Procedure; |
2 | use Moose; |
c0e05758 |
3 | use MooseX::Types::Moose qw(Str); |
4 | use SQL::Translator::Types qw(); |
76764964 |
5 | use SQL::Translator::Object::Schema; |
c5051351 |
6 | |
c0e05758 |
7 | has 'name' => (is => 'ro', isa => Str, required => 1); |
8 | has 'contents' => (is => 'ro', isa => Str, required => 1); |
76764964 |
9 | has 'parameters' => (is => 'ro', isa => Maybe[ArrayRef[Int|Str]], required => 0); |
10 | has 'owner' => (is => 'ro', isa => Str, required => 1); |
11 | has 'comments' => (is => 'ro', isa => Str, required => 0); |
12 | has 'schema' => (is => 'ro', isa => Schema, required => 1, default => sub { SQL::Translator::Object::Schema->new }); |
eeb819a1 |
13 | |
c5051351 |
14 | 1; |