lib/DBIx/Class/CDBICompat.pm

   1 package DBIx::Class::CDBICompat;
   2
   3 use strict;
   4 use warnings;
   5 use base qw/DBIx::Class::Core DBIx::Class::DB/;
   6 use Carp::Clan qw/^DBIx::Class/;
   7
   8 eval {
   9   require Class::Trigger;
  10   require DBIx::ContextualFetch;
  11 };
  12 croak "Class::Trigger and DBIx::ContextualFetch is required for CDBICompat" if $@;
  13
  14 __PACKAGE__->load_own_components(qw/
  15   Constraints
  16   Triggers
  17   ReadOnly
  18   LiveObjectIndex
  19   AttributeAPI
  20   Stringify
  21   DestroyWarning
  22   Constructor
  23   AccessorMapping
  24   ColumnCase
  25   Relationships
  26   Copy
  27   LazyLoading
  28   AutoUpdate
  29   TempColumns
  30   GetSet
  31   Retrieve
  32   Pager
  33   ColumnGroups
  34   ColumnsAsHash
  35   AbstractSearch
  36   ImaDBI
  37   Iterator
  38 /);
  39
  40             #DBIx::Class::ObjIndexStubs
  41 1;
  42
  43 =head1 NAME
  44
  45 DBIx::Class::CDBICompat - Class::DBI Compatibility layer.
  46
  47 =head1 SYNOPSIS
  48
  49   use base qw/DBIx::Class/;
  50   __PACKAGE__->load_components(qw/CDBICompat Core DB/);
  51
  52 =head1 DESCRIPTION
  53
  54 DBIx::Class features a fully featured compatibility layer with L<Class::DBI>
  55 and L<Class::DBI::AbstractSearch> to ease transition for existing CDBI users.
  56
  57 In fact, this class is just a receipe containing all the features emulated.
  58 If you like, you can choose which features to emulate by building your
  59 own class and loading it like this:
  60
  61   __PACKAGE__->load_own_components(qw/CDBICompat/);
  62
  63 this will automatically load the features included in My::DB::CDBICompat,
  64 provided it looks something like this:
  65
  66   package My::DB::CDBICompat;
  67   __PACKAGE__->load_components(qw/
  68     CDBICompat::ColumnGroups
  69     CDBICompat::Retrieve
  70     CDBICompat::HasA
  71     CDBICompat::HasMany
  72     CDBICompat::MightHave
  73   /);
  74
  75 =back
  76
  77 =head1 LIMITATIONS
  78
  79 The following methods and classes are not emulated, maybe in the future.
  80
  81 =over 4
  82
  83 =item Class::DBI::Query
  84
  85 Deprecated in Class::DBI.
  86
  87 =item Class::DBI::Column
  88
  89 Not documented in Class::DBI.  CDBICompat's columns() returns a plain string, not an object.
  90
  91 =item data_type()
  92
  93 Undocumented CDBI method.
  94
  95 =item Class::DBI::Relationship
  96
  97 The semi-documented Class::DBI::Relationship objects returned by C<meta_info($type, $col)> are mostly emulated except for their C<args> method.
  98
  99 =back
 100
 101 =head1 AUTHORS
 102
 103 Matt S. Trout <mst@shadowcatsystems.co.uk>
 104
 105 =head1 LICENSE
 106
 107 You may distribute this code under the same terms as Perl itself.
 108
 109 =cut
 110