1use Scalar::Util 'refaddr';
2use Class::Std::Utils;
3use Test::More 'no_plan';
4
5my @objects = (
6    do{\my $scalar},
7    { hash => 'anon' },
8    [ 1..10 ],
9    sub {},
10    qr//,
11);
12
13for my $ref (@objects) {
14    is ident $ref, refaddr $ref   => 'ident acts like refaddr on '.ref $ref;
15    is ident $ref, int $ref       => 'ident acts like int on '.ref $ref;
16}
17
18bless $_ for @objects;
19
20for my $ref (@objects) {
21    is ident $ref, refaddr $ref   => 'ident acts like refaddr on object';
22}
23