Blest Be The Tie That Binds

[jdporter]

    our *hearts;

    sub Tie1::TIESCALAR {
        bind( hearts, "christian.love" );
    }

    tie $tie1, "Tie1";

    bless $tie1;

Oh, here's another meaning of "bind":

    our $hearts;

    sub Tie1::TIESCALAR {
        $hearts =~ /christian.love/;
    }

    tie $tie1, "Tie1";

    bless $tie1;