Commit | Line | Data |
4f4fd192 |
1 | use MooseX::Declare; |
2 | class SQL::Translator::Object::Procedure { |
3 | use namespace::autoclean; |
4 | use Moose; |
579c2829 |
5 | use MooseX::Types::Moose qw(ArrayRef Int Maybe 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 | |
579c2829 |
15 | has 'contents ' => ( |
4f4fd192 |
16 | is => 'rw', |
17 | isa => Str, |
4f4fd192 |
18 | ); |
19 | |
20 | has 'parameters' => ( |
4f4fd192 |
21 | is => 'rw', |
579c2829 |
22 | isa => ArrayRef, |
4f4fd192 |
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 | } |