lib/DBIx/Class/CDBICompat/MightHave.pm

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