move to MooseX::Declare extends style
[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / Procedure.pm
1 use MooseX::Declare;
2 class SQL::Translator::Object::Procedure extends SQL::Translator::Object {
3     use MooseX::Types::Moose qw(ArrayRef Int Str);
4     
5     has 'name' => (
6         is => 'rw',
7         isa => Str,
8         required => 1
9     );
10     
11     has 'sql' => (
12         is => 'rw',
13         isa => Str,
14         required => 1
15     );
16     
17     has 'parameters' => (
18         is => 'rw',
19         isa => ArrayRef,
20     );
21     
22     has 'owner' => (
23         is => 'rw',
24         isa => Str,
25         required => 1
26     );
27 }