📄 rebless.t
字号:
#!/usr/bin/perl -T -wBEGIN { 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");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -