discard_changes is also "refresh from storage"
[dbsrgits/DBIx-Class-Historic.git] / 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;