lone = $direct->clone;
isa_ok($direct_clone, 'Digest::Bcrypt', 'clone: direct instance');
isnt(refaddr $direct, refaddr $direct_clone, "clone: not the same object");
try {
$direct
lone: $_"); };
isnt($direct->salt, $direct_clone->salt, "clone: salt differs from orig");
isnt($direct->cost, $direct_clone->cost, "clone: cost differs from orig");
isnt($direct->hexdigest
$indirect->clone;
isa_ok($indirect_clone, 'Digest::Bcrypt', 'clone: indirect instance');
isnt(
refaddr $indirect,
refaddr $indirect_clone,
"clone: not the same object"