;
is( $other->compare($copy), 0, 'new object same as original' );
isnt( refaddr($stamp), refaddr($copy), 'copy is new object' );
isnt( refaddr($stamp), refaddr($other), 'new is new object' );
#----
), 'Damian', 'proto3 name is Damian' );
is( $p2->name(), 'Larry', 'proto2 name is still Larry' );
isnt( $p2, $p3, 'Larry is not Damian' );
#----------------------------------------------------------
ototype, 'prototype has been cleared' );
# should now get a new prototype
$p5 = $pkg->prototype;
isnt( $p5, $p3, 'new prototype created' );
__END__
# Local Variables:
# mode: perl
# perl-indent-le
');
ok( 1, 'Ferrets are ok, but not as cool as badgers' );
is( 'badger', 'badger', 'Badger is' );
isnt( 'badger', 'ferret', "Ferret isn't");
like( 'Badger', qr/badger/i, 'Badger Badger Badger' );
unli
ut not as cool as badgers' );
is( 'badger', 'badger', 'Badger is' );
ok( 0, 'This is not cool' );
isnt( 'badger', 'ferret', "Ferret isn't");
like( 'Badger', qr/badger/i, 'Badger Badger Badger' );
skip