use strict;
use t::TestYAML ();
use JSON::Syck;
use Test::More;
plan tests => 2;
my $str = "foo";
my $r = {
foo => \$str, bar => sub { return "bar" }
};
local $SIG{__WARN__} = sub { 1 };
my $dump = JSON::Syck::Dump $r;
like $dump, qr/"bar":null/;
unlike $dump, qr[!perl/ref];