is_object.pl

#!/usr/bin/env perl
use Modern::Perl;
use Test::Most;

{
    package Foo;
    use Moose;
    has bar => ( is => 'rw', isa => 'Object' );
}

lives_ok { Foo->new( bar => Foo->new() ) } 'accepts objects';

for my $thing ( ['arrayref'], { hash => 'ref' }, \'string_ref', 'string', 1 )
{
    dies_ok { Foo->new( bar => $thing ) }
    'does not accept ' . ( ref $thing || 'scalars' );
}

done_testing();