package PDL::CV;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw(rp);

*rp = \&PDL::rp;
# alternative idiom, e.g. for zeroes: sub zeroes {PDL->zeroes(@_)}
sub PDL::rp {
  my ($self, $input) = @_;
  $self .= $input->reshape($self->dims);
  $self;
}