Yeah, committing the new tests would help ...

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Relationship / HasOne.pm

package DBIx::Class::Relationship::HasOne;

use strict;
use warnings;

sub has_one {
  my ($class, $acc_name, $f_class, $cond) = @_;
  eval "require $f_class";
  # single key relationship
  if (not defined $cond) {
    my ($pri, $too_many) = keys %{ $f_class->_primaries };
    my $acc_type = ($class->_columns->{$acc_name}) ? 'filter' : 'single';
    $class->add_relationship($acc_name, $f_class,
      { "foreign.${pri}" => "self.${acc_name}" },
      { accessor => $acc_type }
    );
  }
  # multiple key relationship
  else {
    my %f_primaries = %{ $f_class->_primaries };
    my $cond_rel;
    for (keys %$cond) {
      $cond_rel->{"foreign.$_"} = "self.".$cond->{$_};
      # primary key usage checks
      if (exists $f_primaries{$_}) {
        delete $f_primaries{$_};
      }
      else
      {
        $class->throw("non primary key used in join condition: $_");
      }
    }
    $class->throw("not all primary keys used in multi key relationship!") if keys %f_primaries;
    $class->add_relationship($acc_name, $f_class,
      $cond_rel,
      { accessor => 'single' }
    );
  }
  return 1;
}

1;