Skip to content

Instantly share code, notes, and snippets.

@pjlsergeant

pjlsergeant/gist:5937263

Created July 5, 2013 21:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save pjlsergeant/5937263 to your computer and use it in GitHub Desktop.
Save pjlsergeant/5937263 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#!/usr/bin/env perl
use 5.012;
use warnings;
use JSON::XS qw(decode_json);
foreach (1..2) {
my $string = '{"a":false,"b":false}';
my $decode = decode_json($string);
warn overload::StrVal( $decode->{a} );
warn overload::StrVal( $decode->{b} );
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment