perlには、変数の代入/参照が行なわれた際に実行する関数を結びつける機能があります。 この機能を実現するためにtie関数を使用します。 例えば、MyScalarモジュールと$scalar変数を結びつけるには次のように記述します。 tie $scalar, MyScalar; MyScalarに実行するメソッドを定義していきます。 例えば、変数への代入の際に実行する関数は、STOREというメソッド名で定義します。 変数の参照の際に実行する関数は、FETCHというメソッド名で定義します。 こういったメソッドは、必ず一通り定義しなければなりません。 そこで、Tie::Scalarというモジュールを継承するようにして、自分が定義したいメソッドだけ記述できるようにします。 package MyScalar; use strict; use warnings; require Tie::Scalar