File Coverage

blib/lib/DBIx/Class/CDBICompat.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package DBIx::Class::CDBICompat;
2              
3 43     43   22343 use strict;
  43         69  
  43         1198  
4 43     43   178 use warnings;
  43         60  
  43         1252  
5 43     43   179 use base qw/DBIx::Class::Core DBIx::Class::DB/;
  43         55  
  43         21418  
6              
7             # Modules CDBICompat needs that DBIx::Class does not.
8             my @Extra_Modules = qw(
9             Class::Trigger
10             DBIx::ContextualFetch
11             Clone
12             );
13              
14             my @didnt_load;
15             for my $module (@Extra_Modules) {
16             push @didnt_load, $module unless eval qq{require $module};
17             }
18             __PACKAGE__->throw_exception("@{[ join ', ', @didnt_load ]} are missing and are required for CDBICompat")
19             if @didnt_load;
20              
21              
22             __PACKAGE__->load_own_components(qw/
23             Constraints
24             Triggers
25             ReadOnly
26             LiveObjectIndex
27             AttributeAPI
28             Stringify
29             DestroyWarning
30             Constructor
31             AccessorMapping
32             ColumnCase
33             Relationships
34             Copy
35             LazyLoading
36             AutoUpdate
37             TempColumns
38             GetSet
39             Retrieve
40             Pager
41             ColumnGroups
42             ColumnsAsHash
43             AbstractSearch
44             ImaDBI
45             Iterator
46             /);
47              
48             1;
49              
50             __END__