Commit | Line | Data |
4f4fd192 |
1 | use MooseX::Declare; |
2 | class SQL::Translator::Object::Procedure { |
3 | use namespace::autoclean; |
4 | use Moose; |
ddd6c19a |
5 | use MooseX::Types::Moose qw(ArrayRef Int Str); |
4f4fd192 |
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 | |
ddd6c19a |
15 | has 'sql' => ( |
4f4fd192 |
16 | is => 'rw', |
17 | isa => Str, |
ddd6c19a |
18 | required => 1 |
4f4fd192 |
19 | ); |
20 | |
21 | has 'parameters' => ( |
4f4fd192 |
22 | is => 'rw', |
579c2829 |
23 | isa => ArrayRef, |
4f4fd192 |
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 | ); |
36 | |
37 | has 'schema' => ( |
38 | is => 'rw', |
39 | isa => Schema, |
40 | required => 1, |
41 | default => sub { Schema->new } |
42 | ); |
43 | } |