Select Code to Download

use warnings;
use strict;
...

my $foo = {};
isa_ok($foo, 'My::Object');

not ok 1 - The object isa My::Object
#     Failed test (temp.pl at line 6)
#     The object isn't a 'My::Object' it's a 'HASH'
1..1
# Looks like you failed 1 test of 1.