1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::Copy;
9 # CDBI's copy will take an id in addition to a hash ref.
12 return $self->next::method($arg) if ref $arg;
14 my @primary_columns = $self->primary_columns;
15 croak("Need hash-ref to edit copied column values")
16 if @primary_columns > 1;
18 return $self->next::method({ $primary_columns[0] => $arg });