add "x" command to perldl/pdl2 that Data::Dumper-s its args

PDLPorters · Oct 3, 2024 · 21dc615 · 21dc615
1 parent 8d9add0
commit 21dc615
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,7 @@
 - split Libtmp/Minuit out to separate PDL::Minuit distro
 - Transform::Proj4 add NoPthread as using non-thread-safe API
 - Transform::Proj4 use Alien::proj better for build (#499) - thanks @shawnlaffan
+- perldl/pdl2 now have "x" command that Data::Dumper-s argument
 
 2.093 2024-09-29
 - PDL.set_datatype now doesn't physicalise input, PDL.convert_type does

diff --git a/Perldl2/Profile/Perldl2.pm b/Perldl2/Profile/Perldl2.pm
@@ -131,6 +131,16 @@ sub apply_profile {
     }
    } );
 
+   $repl->eval( q{
+    sub x {
+      require Data::Dumper;
+      local $Data::Dumper::Indent = 1;
+      local $Data::Dumper::Indent = 1;
+      local $Data::Dumper::Terse = 1;
+      print Data::Dumper::Dumper(@_);
+    }
+   } );
+
    $repl->eval( q{
     use PDL::Demos;
     sub demo {

diff --git a/perldl b/perldl
@@ -359,6 +359,14 @@ sub gv {
   $output; # return just in case
 }
 
+sub x {
+  require Data::Dumper;
+  local $Data::Dumper::Indent = 1;
+  local $Data::Dumper::Indent = 1;
+  local $Data::Dumper::Terse = 1;
+  print Data::Dumper::Dumper(@_);
+}
+
 sub page {
   $PERLDL::PAGE = (defined $_[0] ? $_[0] : 1);
 }