projects
/
dbsrgits/SQL-Translator-2.0-ish.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
rename contents attribute to sql
[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 Maybe 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
);
19
20
has 'parameters' => (
21
is => 'rw',
22
isa => ArrayRef,
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
}