JSON::XS is insane

gistfile1.pl

perl -wle '
    use JSON::XS;
    use Data::Dumper;
    my $json = JSON::XS->new();
    $json->utf8(1);

    print Dumper(wtf(q(["abc"])));
    print Dumper(wtf(undef));

    sub wtf {
        my ($s) = @_;
        $json->decode($s);
    }
'


$VAR1 = [
          'abc'
        ];

$VAR1 = [
          'abc'
        ];