lib/DBIx/Class/Componentised.pm

   1 package # hide from PAUSE
   2     DBIx::Class::Componentised;
   3
   4 use strict;
   5 use warnings;
   6
   7 use base 'Class::C3::Componentised';
   8 use Carp::Clan qw/^DBIx::Class|^Class::C3::Componentised/;
   9 use mro 'c3';
  10
  11 # this warns of subtle bugs introduced by UTF8Columns hacky handling of store_column
  12 sub inject_base {
  13   my $class = shift;
  14   my $target = shift;
  15
  16   my @present_components = (@{mro::get_linear_isa ($target)||[]});
  17
  18   no strict 'refs';
  19   for my $comp (reverse @_) {
  20
  21     if ($comp->isa ('DBIx::Class::UTF8Columns') ) {
  22       require B;
  23       my @broken;
  24
  25       for (@present_components) {
  26         my $cref = $_->can ('store_column')
  27          or next;
  28         push @broken, $_ if B::svref_2object($cref)->STASH->NAME ne 'DBIx::Class::Row';
  29       }
  30
  31       carp "Incorrect loading order of $comp by ${target} will affect other components overriding store_column ("
  32           . join (', ', @broken)
  33           .'). Refer to the documentation of DBIx::Class::UTF8Columns for more info'
  34        if @broken;
  35     }
  36
  37     unshift @present_components, $comp;
  38   }
  39
  40   $class->next::method($target, @_);
  41 }
  42
  43 1;