use Test::More 'no_plan';

my $original = bless {}, 'Something';
isa_ok $original, 'Something';

my $copy = $original;
bless $copy, 'SomethingElse';

isa_ok $original, 'SomethingElse';

__END__

ok 1 - The object isa Something
ok 2 - The object isa SomethingElse
1..2