[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / MightHave.pm

package DBIx::Class::CDBICompat::MightHave;

use strict;
use warnings;

sub might_have {
  my ($class, $rel, $f_class, @columns) = @_;
  if (ref $columns[0] || !defined $columns[0]) {
    return $class->next::method($rel, $f_class, @columns);
  } else {
    return $class->next::method($rel, $f_class, undef,
                                     { proxy => \@columns });
  }
}

1;
Commit	Line	Data
503536d5	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]) {
147dd158	9	return $class->next::method($rel, $f_class, @columns);
503536d5	10	} else {
147dd158	11	return $class->next::method($rel, $f_class, undef,
503536d5	12	{ proxy => \@columns });
	13	}
	14	}
	15
	16	1;