X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRelationship%2FBelongsTo.pm;h=af68b7bd834f0bf38fed038fa480ef3b3cd6460b;hb=dc7bcc465e3c824e46290fc802739b1e29892512;hp=272b01bb7656ef61aae3326354f09c27366f6891;hpb=6bf6ba2f2c58514c065a95019cd23b10bd4770ff;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Relationship/BelongsTo.pm b/lib/DBIx/Class/Relationship/BelongsTo.pm index 272b01b..af68b7b 100644 --- a/lib/DBIx/Class/Relationship/BelongsTo.pm +++ b/lib/DBIx/Class/Relationship/BelongsTo.pm @@ -7,12 +7,19 @@ package # hide from PAUSE use strict; use warnings; +our %_pod_inherit_config = + ( + class_map => { 'DBIx::Class::Relationship::BelongsTo' => 'DBIx::Class::Relationship' } + ); + sub belongs_to { my ($class, $rel, $f_class, $cond, $attrs) = @_; # assume a foreign key contraint unless defined otherwise $attrs->{is_foreign_key_constraint} = 1 if not exists $attrs->{is_foreign_key_constraint}; + $attrs->{undef_on_null_fk} = 1 + if not exists $attrs->{undef_on_null_fk}; # no join condition or just a column name if (!ref $cond) { @@ -77,12 +84,14 @@ sub belongs_to { return 1; } -=head1 AUTHORS - -Alexander Hartmaier - -Matt S. Trout +# Attempt to remove the POD so it (maybe) falls off the indexer -=cut +#=head1 AUTHORS +# +#Alexander Hartmaier +# +#Matt S. Trout +# +#=cut 1;