X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK.pm;h=d093d93d1adb7f734677eec16820e8561fa3cb93;hb=75d079145a507a0e5ff89b2676d383f4fd1a5511;hp=0f4d0a721f741aac01b61d3edcd5942fcb4bdc07;hpb=884559b13fe244d3e446d127e9fd21ea8d7c6eb3;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/PK.pm b/lib/DBIx/Class/PK.pm index 0f4d0a7..d093d93 100644 --- a/lib/DBIx/Class/PK.pm +++ b/lib/DBIx/Class/PK.pm @@ -5,7 +5,7 @@ use warnings; use base qw/DBIx::Class::Row/; -=head1 NAME +=head1 NAME DBIx::Class::PK - Primary Key class @@ -13,7 +13,7 @@ DBIx::Class::PK - Primary Key class =head1 DESCRIPTION -This class contains methods for handling primary keys and methods +This class contains methods for handling primary keys and methods depending on them. =head1 METHODS @@ -70,7 +70,7 @@ sub id { =head2 ID Returns a unique id string identifying a row object by primary key. -Used by L and +Used by L and L. =cut @@ -88,7 +88,7 @@ sub _create_ID { my ($self,%vals) = @_; return undef unless 0 == grep { !defined } values %vals; return join '|', ref $self || $self, $self->result_source->name, - map { $_ . '=' . $vals{$_} } sort keys %vals; + map { $_ . '=' . $vals{$_} } sort keys %vals; } sub ident_condition {