Commit | Line | Data |
c5051351 |
1 | package SQL::Translator::Object::Procedure; |
2 | use Moose; |
109263d0 |
3 | use MooseX::Types::Moose qw(HashRef Int Str); |
c0e05758 |
4 | use SQL::Translator::Types qw(); |
76764964 |
5 | use SQL::Translator::Object::Schema; |
cc73c25e |
6 | extends 'SQL::Translator::Object'; |
c5051351 |
7 | |
109263d0 |
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 | ); |
eeb819a1 |
44 | |
c5051351 |
45 | 1; |