T() and F() do not handle references properly

[exodist]

This passes (It should not)

use v5.10;
use Mojo::JSON qw(encode_json decode_json);
use Test2::Tools::Compare qw(hash is T F end etc field);

my $data = '{ "aaa": true, "bbb": false }';
my $h = decode_json($data);

my $cmp = hash {
  field aaa => F();
  field bbb => T();
  end();
};
  
is($h, $cmp, 'Test');

done_testing;

The reference check in here: https://metacpan.org/dist/Test2-Suite/source/lib/Test2/Tools/Compare.pm#L252 is incorrect. Several of the quick-checks have similar incorrect reference logic.