X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FMultiColumnIn.pm;h=a0a558648ca2ed1bd3c3561f23a65ce0c5a1585a;hb=8273e845426f0187b4ad6c4a1b42286fa09a648f;hp=2a757eadefa23bc07071d9d2cee3b63cedeb930f;hpb=2ad62d97476187e57d20ee49b39d7a7af864bb20;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/MultiColumnIn.pm b/lib/DBIx/Class/Storage/DBI/MultiColumnIn.pm index 2a757ea..a0a5586 100644 --- a/lib/DBIx/Class/Storage/DBI/MultiColumnIn.pm +++ b/lib/DBIx/Class/Storage/DBI/MultiColumnIn.pm @@ -6,7 +6,7 @@ use warnings; use base 'DBIx::Class::Storage::DBI'; use mro 'c3'; -=head1 NAME +=head1 NAME DBIx::Class::Storage::DBI::MultiColumnIn - Storage component for RDBMS supporting multicolumn in clauses @@ -17,7 +17,7 @@ in fact understand WHERE (cola, colb) IN ( SELECT subcol_a, subcol_b ... ) The storage class for any such RDBMS should inherit from this class, in order to dramatically speed up update/delete operations on joined multipk resultsets. -At this point the only overriden method is C<_multipk_update_delete()> +At this point the only overridden method is C<_multipk_update_delete()> =cut @@ -26,10 +26,10 @@ sub _multipk_update_delete { my ($rs, $op, $values) = @_; my $rsrc = $rs->result_source; - my @pcols = $rsrc->primary_columns; + my @pcols = $rsrc->_pri_cols; my $attrs = $rs->_resolved_attrs; - # naive check - this is an internal method after all, we should know what we are doing + # naive check - this is an internal method after all, we should know what we are doing $self->throw_exception ('Number of columns selected by supplied resultset does not match number of primary keys') if ( ref $attrs->{select} ne 'ARRAY' or @{$attrs->{select}} != @pcols );