1*256a93a4Safresh1use strict; 2*256a93a4Safresh1use warnings; 3*256a93a4Safresh1use Test2::Tools::Tiny; 4*256a93a4Safresh1 5*256a93a4Safresh1# this test is only relevant under Devel::Cover 6*256a93a4Safresh1 7*256a93a4Safresh1require Test::More; 8*256a93a4Safresh1 9*256a93a4Safresh1my $destroy = 0; 10*256a93a4Safresh1sub CountDestroy::DESTROY { $destroy++ } 11*256a93a4Safresh1 12*256a93a4Safresh1my $obj = bless {}, 'CountDestroy'; 13*256a93a4Safresh1 14*256a93a4Safresh1Test::More::is($obj, $obj, 'compare object to itself using is'); 15*256a93a4Safresh1 16*256a93a4Safresh1undef $obj; 17*256a93a4Safresh1 18*256a93a4Safresh1is $destroy, 1, 'undef object destroyed after being passed to is'; 19*256a93a4Safresh1 20*256a93a4Safresh1done_testing; 21