File Coverage

blib/lib/SQL/Translator/Schema/Object.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
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
21              
22             Provides C<< $obj->error >>, similar to L.
23              
24             =item L
25              
26             Removes undefined constructor arguments, for backwards compatibility.
27              
28             =item L
29              
30             Provides an C attribute storing a hashref of arbitrary data.
31              
32             =item L
33              
34             Provides an C<< $obj->equals($other) >> method for testing object
35             equality.
36              
37             =back
38              
39             =cut
40              
41 74     74   33217 use Moo 1.000003;
  74         1589  
  74         433  
42              
43             # screw you PAUSE
44             our $VERSION = '1.6_3';
45              
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;