DoublePDL.pm

package DoublePDL;

use strict;
use warnings;

use parent qw( PDL::Exporter );
our @EXPORT_OK = qw(double_pdl);
our %EXPORT_TAGS = (Func=>[@EXPORT_OK], Internal => [],);

*double_pdl = \&PDL::double_pdl;

sub PDL::double_pdl {
	my $pdl = shift;
	$pdl * 2;
}


1;

__END__

use PDL;
use DoublePDL;
use Test::More;

my $p = sequence(10);

ok( all($p->double_pdl == 2 * $p) );
ok( all( double_pdl($p) ==  $p->double_pdl ) );
done_testing;

context