our *hearts;

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

    tie $tie1, "Tie1";

    bless $tie1;