use Carp::Clan qw/^DBIx::Class/;
use Lingua::EN::Inflect::Number ();
-our $VERSION = '0.04003';
+our $VERSION = '0.04999_05';
=head1 NAME
my $remote_method = 'has_many';
# If the local columns have a UNIQUE constraint, this is a one-to-one rel
- my $primary = [ $self->{schema}->source($local_moniker)->primary_columns ];
- if (_array_eq($primary, $local_cols) ||
+ my $local_source = $self->{schema}->source($local_moniker);
+ if (_array_eq([ $local_source->primary_columns ], $local_cols) ||
grep { _array_eq($_->[1], $local_cols) } @$uniqs) {
$remote_method = 'might_have';
$local_relname = $self->_inflect_singular($local_relname);
}
+ # If the referring column is nullable, make 'belongs_to' an outer join:
+ my $nullable = grep { $local_source->column_info($_)->{is_nullable} }
+ @$local_cols;
+
push(@{$all_code->{$local_class}},
{ method => 'belongs_to',
args => [ $remote_relname,
$remote_class,
\%cond,
+ $nullable ? { join_type => 'LEFT OUTER' } : ()
],
}
);