Mini Shell
Mini Shell
| Direktori : /root/.cpanm/work/1590825950.14464/YAML-Syck-1.32/t/ |
| Current File : //root/.cpanm/work/1590825950.14464/YAML-Syck-1.32/t/json-refs.t |
use strict;
use FindBin;
BEGIN { push @INC, $FindBin::Bin }
use 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];