[perl5.git] / lib / Tie / RefHash / rebless.t

#!/usr/bin/perl -T -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
}

use strict;

use Tie::RefHash;

{
  package Moose;
  sub new { bless { }, shift };

  package Elk;
  use vars qw/@ISA/;
  @ISA = "Moose";
}

$\ = "\n";
print "1..2";

my $obj = Moose->new;

tie my %hash, "Tie::RefHash";

$hash{$obj} = "magic";

print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - keyed before rebless" );

bless $obj, "Elk";

print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - still the same");
Commit	Line	Data
f0f40d86 RGS	1	#!/usr/bin/perl -T -w
	2
	3	BEGIN {
	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't';
	6	@INC = '../lib';
	7	}
	8	}
	9
	10	use strict;
	11
	12	use Tie::RefHash;
	13
	14	{
	15	package Moose;
	16	sub new { bless { }, shift };
	17
	18	package Elk;
	19	use vars qw/@ISA/;
	20	@ISA = "Moose";
	21	}
	22
	23	$\ = "\n";
	24	print "1..2";
	25
	26	my $obj = Moose->new;
	27
	28	tie my %hash, "Tie::RefHash";
	29
	30	$hash{$obj} = "magic";
	31
	32	print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - keyed before rebless" );
	33
	34	bless $obj, "Elk";
	35
	36	print ( ( $hash{$obj} eq "magic" ) ? "" : "not ", "ok - still the same");