#!/usr/bin/perl
use strict;
use warnings;
use perl5i::latest;
use Test::More;
my $obj = bless {}, "Foo";
is $obj->mo->reftype, "HASH";
is 42->mo->reftype, undef;
is []->mo->reftype, "ARRAY";
is sub {}->mo->reftype, "CODE";
TODO: {
local $TODO = "bare hashes and arrays give the wrong reftype";
my @array;
is @array->mo->reftype, undef, "bare array";
my %hash;
is %hash->mo->reftype, undef, "bare hash";
}
done_testing();