discard_changes is also "refresh from storage"
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / CDBICompat / MightHave.pm
CommitLineData
c0e7b4e5 1package # hide from PAUSE
2 DBIx::Class::CDBICompat::MightHave;
503536d5 3
4use strict;
5use warnings;
6
7sub might_have {
8 my ($class, $rel, $f_class, @columns) = @_;
9 if (ref $columns[0] || !defined $columns[0]) {
147dd158 10 return $class->next::method($rel, $f_class, @columns);
503536d5 11 } else {
147dd158 12 return $class->next::method($rel, $f_class, undef,
503536d5 13 { proxy => \@columns });
14 }
15}
16
171;