Oh, here's another meaning of "bind":our *hearts; sub Tie1::TIESCALAR { bind( hearts, "christian.love" ); } tie $tie1, "Tie1"; bless $tie1;
our $hearts; sub Tie1::TIESCALAR { $hearts =~ /christian.love/; } tie $tie1, "Tie1"; bless $tie1;
|
---|
Back to
Perl Poetry