1 package DBIx::Class::ResultSet::WithDQMethods;
3 use Scalar::Util qw(blessed);
8 extends 'DBIx::Class::ResultSet';
10 with 'DBIx::Class::ResultSet::Role::DQMethods';
13 if (@_ <= 3 and blessed($_[1])) { # ->new($source, $attrs?)
16 return Moo::Object::BUILDARGS(@_);
19 sub FOREIGNBUILDARGS {
20 if (@_ <= 3 and blessed($_[1])) { # ->new($source, $attrs?)
21 return ($_[1], $_[2]);
23 my $args = Moo::Object::BUILDARGS(@_);
24 my $source = delete $args->{result_source};
25 return ($source, $args);