Commit | Line | Data |
954ed12e |
1 | package SQL::Translator::Schema::Object; |
2 | |
3 | =head1 NAME |
4 | |
5 | SQL::Translator::Schema::Object - Base class for SQL::Translator schema objects |
6 | |
7 | =head1 SYNOPSIS |
8 | |
9 | package SQL::Translator::Schema::Foo; |
10 | use Moo; |
11 | extends 'SQL::Translator::Schema::Object'; |
12 | |
13 | =head1 DESCRIPTION |
14 | |
15 | Base class for Schema objects. A Moo class consuming the following |
16 | roles. |
17 | |
18 | =over |
19 | |
20 | =item L<SQL::Translator::Role::Error> |
21 | |
22 | Provides C<< $obj->error >>, similar to L<Class::Base>. |
23 | |
24 | =item L<SQL::Translator::Role::BuildArgs> |
25 | |
26 | Removes undefined constructor arguments, for backwards compatibility. |
27 | |
28 | =item L<SQL::Translator::Schema::Role::Extra> |
29 | |
30 | Provides an C<extra> attribute storing a hashref of arbitrary data. |
31 | |
32 | =item L<SQL::Translator::Schema::Role::Compare> |
33 | |
34 | Provides an C<< $obj->equals($other) >> method for testing object |
35 | equality. |
36 | |
37 | =back |
38 | |
39 | =cut |
40 | |
dd13bc8b |
41 | use Moo 1.000003; |
954ed12e |
42 | |
5bacf13b |
43 | # screw you PAUSE |
44 | our $VERSION = '1.59'; |
45 | |
954ed12e |
46 | with qw( |
47 | SQL::Translator::Role::Error |
48 | SQL::Translator::Role::BuildArgs |
49 | SQL::Translator::Schema::Role::Extra |
50 | SQL::Translator::Schema::Role::Compare |
51 | ); |
52 | |
53 | 1; |