lib/DBIx/Class/CDBICompat/MightHave.pm

   1 package # hide from PAUSE
   2     DBIx::Class::CDBICompat::MightHave;
   3
   4 use strict;
   5 use warnings;
   6
   7 sub might_have {
   8   my ($class, $rel, $f_class, @columns) = @_;
   9   if (ref $columns[0] || !defined $columns[0]) {
  10     return $class->next::method($rel, $f_class, @columns);
  11   } else {
  12     return $class->next::method($rel, $f_class, undef,
  13                                      { proxy => \@columns });
  14   }
  15 }
  16
  17 1;