Select Code to Download

    $ret .= pp_line_numbers(__LINE__, <<EOF) if $mutator;
BEGIN {
...
\$OVERLOADS{'$op='} = sub { PDL::$name(\$_[0]->inplace, \$_[1]); \$_[0
+] };
}
EOF

#line 192 "ops.pd"
BEGIN {
...
use Carp; use Test::More; diag "RUN ", Test::More::explain \@_;
PDL::plus($_[0]->inplace, $_[1]); $_[0] };
}

$ perl -MPDL -e '$p=pdl(1); $p+=2'

# RUN [
#   bless( do{\(my $o = '94749946365136')}, 'PDL' ),
#   2,
#   undef
# ]