const bla = () => { console.log("ran bla") };
const gar = () => { console.log("ran gar") };
function asdf () {
console.log("ran asdf");
}
const xxx = { bla, gar, asdf };
console.log(xxx);
{ bla: [Function], gar: [Function], asdf: [Function: asdf] }
mkdir my_tests
cd my_tests
# you need an npm project to install npm modules locally
npm init -y
npm install --save-dev babel-core babel-cli babel-preset-es2015
# let babel know what version you want to use
echo '{ "presets":["es2015"] } ' > .babelrc
# use the new "import" syntax; here I imported something from redux just to get it to fail
echo 'import { createStore } from "redux";' > t1.js
# this will fail
node t1.js
# this will not fail
./node_modules/.bin/babel-node t1.js
mkdir my_other_tests cd my_other_tests npm install -g babel-core babel-cli babel-preset-es2015 # specify the ES version in the command line or create a .babelrc file like above babel-node --presets es2015 t1.js
Turns out I was focusing on the wrong leads. These strings became values in a hash which was run through JSON->encode before saving to db. What prompted the re-encoding was not the values of the hash, but the keys. These were string literals in my program which were not marked as UTF8. Perl looked at my keys, looked at my values, saw a mixed bag, and decided to run the whole thing through the shredder again, just to be on the safe side.
The solution was simple:
use utf8
Because my keys were source-code string literals, I want my source code to be UTF8. use utf8 assures that.
use strict;
use warnings;
use B::Deparse;
sub debug_coderef {
my $possibly_code = shift;
my $deparse = B::Deparse->new();
if (ref $possibly_code && ref $possibly_code eq 'CODE') {
print STDERR "CODEREF: ", $deparse->coderef2text($possibly_code), "\n";
} else {
print STDERR "NOT A CODEREF: ", Dumper($possibly_code), "\n";
}
}
debug_coderef(sub {print "a";});