Skip to content

Instantly share code, notes, and snippets.

@richvdh
Created October 13, 2017 15:38
Show Gist options
  • Save richvdh/731dd33d6a5f43f510239e45f68ae1dc to your computer and use it in GitHub Desktop.
Save richvdh/731dd33d6a5f43f510239e45f68ae1dc to your computer and use it in GitHub Desktop.
Data::Dump modifies its input
use JSON qw(encode_json);
use Data::Dump qw(dd);
my $a = [1];
my $before = encode_json($a);
dd($a);
my $after = encode_json($a);
die "$before ne $after" if $before ne $after;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment