X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FCopy.pm;h=0ab6092f62eb3191ff31bdfaec8fa9ecaeb86f59;hb=aa56106b252283cef5338312d66fdf62cc92df20;hp=414cbd66d0d50cfafab02f5a4607e7749ad84bc1;hpb=d03c070640a8a9a187ba4fa21d645287029abfca;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/CDBICompat/Copy.pm b/lib/DBIx/Class/CDBICompat/Copy.pm index 414cbd6..0ab6092 100644 --- a/lib/DBIx/Class/CDBICompat/Copy.pm +++ b/lib/DBIx/Class/CDBICompat/Copy.pm @@ -8,11 +8,11 @@ use Carp; =head1 NAME -DBIx::Class::CDBICompat::Copy +DBIx::Class::CDBICompat::Copy - Emulates Class::DBI->copy($new_id) =head1 SYNOPSIS -See DBIx::Class::CDBICompat for directions for use. +See DBIx::Class::CDBICompat for usage directions. =head1 DESCRIPTION @@ -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;