lib/DBIx/Class/Relationship/BelongsTo.pm

   1 package DBIx::Class::Relationship::BelongsTo;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub belongs_to {
   7   my ($class, $rel, $f_class, $cond, $attrs) = @_;
   8   eval "require $f_class";
   9   my %f_primaries = eval { %{ $f_class->_primaries } };
  10   my $f_loaded = !$@;
  11   # single key relationship
  12   if (not defined $cond) {
  13     $class->throw("Can't infer join condition for ${rel} on ${class}; unable to load ${f_class}") unless $f_loaded;
  14     my ($pri, $too_many) = keys %f_primaries;
  15     $class->throw("Can't infer join condition for ${rel} on ${class}; ${f_class} has multiple primary key") if $too_many;
  16     my $acc_type = ($class->_columns->{$rel}) ? 'filter' : 'single';
  17     $class->add_relationship($rel, $f_class,
  18       { "foreign.${pri}" => "self.${rel}" },
  19       { accessor => $acc_type }
  20     );
  21   }
  22   # multiple key relationship
  23   else {
  24     my $cond_rel;
  25     for (keys %$cond) {
  26       if (m/\./) { # Explicit join condition
  27         $cond_rel = $cond;
  28         last;
  29       }
  30       $cond_rel->{"foreign.$_"} = "self.".$cond->{$_};
  31       # primary key usage checks
  32       if (exists $f_primaries{$_}) {
  33         delete $f_primaries{$_};
  34       } elsif ($f_loaded) {
  35         $class->throw("non primary key used in join condition: $_");
  36       }
  37     }
  38     $class->throw("Invalid belongs_to specification for ${rel} on ${class}; primary key columns ".join(', ', keys %f_primaries)." of ${f_class} not specified in join condition") if ($f_loaded && keys %f_primaries);
  39     $class->add_relationship($rel, $f_class,
  40       $cond_rel,
  41       { accessor => 'single', %{$attrs ||{}} }
  42     );
  43   }
  44   return 1;
  45 }
  46
  47 =head1 AUTHORS
  48
  49 Alexander Hartmaier <Alexander.Hartmaier@t-systems.at>
  50
  51 Matt S. Trout <mst@shadowcatsystems.co.uk>
  52
  53 =cut
  54
  55 1;