X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FCopy.pm;h=ffd5381aef24efe738078698a12f81a51ae1cb04;hb=546f1cd924847a9ee1754c978de678ae0e3261e0;hp=414cbd66d0d50cfafab02f5a4607e7749ad84bc1;hpb=d03c070640a8a9a187ba4fa21d645287029abfca;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/Copy.pm b/lib/DBIx/Class/CDBICompat/Copy.pm index 414cbd6..ffd5381 100644 --- a/lib/DBIx/Class/CDBICompat/Copy.pm +++ b/lib/DBIx/Class/CDBICompat/Copy.pm @@ -8,7 +8,7 @@ use Carp; =head1 NAME -DBIx::Class::CDBICompat::Copy +DBIx::Class::CDBICompat::Copy - Emulates Class::DBI->copy($new_id) =head1 SYNOPSIS @@ -25,7 +25,7 @@ Emulates C<copy($new_id)>>. sub copy { my($self, $arg) = @_; return $self->next::method($arg) if ref $arg; - + my @primary_columns = $self->primary_columns; croak("Need hash-ref to edit copied column values") if @primary_columns > 1;