The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use t::TestYAML ();
use Test::More tests => 2;

use JSON::Syck;

my $dat = JSON::Syck::Dump( { foo => undef } );
like $dat, qr/null/;

$dat = JSON::Syck::Dump( { foo => !1 } );
unlike $dat, qr/"foo":}/;