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