package PDL::CV;
use strict;
our @EXPORT=qw(rp);

sub rp {
    my ( $self, $input ) = @_;
    $self .= $input->reshape($self->dims);
    return $self;
}

sub new
{
    my $class = shift;
    my $self = {
        _input => shift,
    };
    bless $self, $class;
    return $self;
}
1;

##</code><code>##

use v5.10;
use PDL;
use PDL::NiceSlice;
use PDL::CV;

$d = sequence(4,5);
$t = pdl sequence(100,5,5);
$d(0,1:4)->rp($t(0,0,1:4));