projects
/
dbsrgits/SQL-Translator-2.0-ish.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b8af8ab6c2d5523510c07c6fee33d7ff26963086
[dbsrgits/SQL-Translator-2.0-ish.git]
/
lib
/
SQL
/
Translator
/
Object
/
Procedure.pm
1
use MooseX::Declare;
2
class SQL::Translator::Object::Procedure {
3
use namespace::autoclean;
4
use Moose;
5
use MooseX::Types::Moose qw(ArrayRef Int Str);
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
15
has 'sql' => (
16
is => 'rw',
17
isa => Str,
18
required => 1
19
);
20
21
has 'parameters' => (
22
is => 'rw',
23
isa => ArrayRef,
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
}