クラス::観測可能です

Class :: ObServableは、他のクラスやオブジェクトがあなたの中のイベントに応答できるPerlモジュールです。
今すぐダウンロード

クラス::観測可能です ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Chris Winters
  • 出版社のWebサイト:
  • http://search.cpan.org/cwinters/SPOPS-0.87/SPOPS/SQLInterface.pm

クラス::観測可能です タグ


クラス::観測可能です 説明

Class ::監視可能なPerlモジュールは、他のクラスやオブジェクトがあなたのイベントに応答できるようにするPerlモジュールです。 Class :: OverServableは、他のクラスとオブジェクトがyourssのイベントに応答できるPerlモジュールです。基本QW（Class ::監視可能）を使用してください。 ＃このオブジェクトを監視するすべてのクラス/オブジェクトを監視するja sub create {My（$ self）= @_; eval {$ self - > _ perform_create（）};} if（$ @）{My :: Exception-> throw（ "節約：$ @"）; $ self-> notify_observers（）;変更の種類を明示的で渡す引数の種類を作成します。サブ編集{My（$ self）= @_; my％old_values = $ self-> extract_values; eval {$ self - > _ perform_edit（）}; if（$ @）{My :: Exception-> throw（ "節約：$ @"）; $ self-> notify_observers（ 'edit'、old_values =>％old_values）; }＃オブザーバーパッケージMy :: Observerを定義します。サブアップデート{My（$ class、$ object、$ action）= @_; （$ action）{warn "がアクションなしでで操作できません。戻る; $ CLASS - > _ ON_SAVE（$ OBJECT）（$ Action EQ 'SAVE'）。 $ CLASS - > _ ON_UPDATE（$ OBJECT）（$ ACTION EQ 'UPDATE'）。 ＃observerクラスをObservable＃class my :: object-> add_observer（ 'my :: observer'）のすべてのインスタンスで登録します。 ＃監視可能クラスMy $ Object = My :: Object-> New（ 'foo'）の単一のインスタンスでオブザーバークラスを登録します。 $ OBJECT-> ADD_OBSERVER（ 'My :: Observer'）; ＃私の$ OBSERVER = MY :: OBSERVER-> NEW（ 'BAR'）;オブザーバオブジェクトを同じ方法で登録します。 My :: Object-> Add_obServer（$ Observer）; My $ OBJECT = MY :: Object-> New（ 'foo'）; $ OBJECT-> ADD_OBSERVER（$ OBServer）; ＃サブルーチンサブキャッチを使用してオブザーバーを登録します。 My $ OBJECT = MY :: Object-> New（ 'foo'）; $ OBJECT-> ADD_OBSERVER（catch_ov.vervation）; ＃観察可能クラスを親として定義し、監視者を子パッケージMy :: Parentで使用することを許可します。厳密を使う。基本QW（Class ::監視可能）を使用してください。 sub prepare_for_bed {My（$ self）= @_; $ self-> notify_observers（ 'prepare_for_bed'）; sub brish_teeth {My（$ self）= @_; $ self - > _ brush_teeth（time => 45）; $ self - > _ floss_teeth（time => 30）。 $ self - > _ grgle（time => 30）; sub wash_face {...} package my :: child;厳密を使う。基本QW（MY :: PAREP）を使用してください。 sub brush_teeth {My（$ self）= @_; $ self - > _ wet_toothblush（）;サブ洗面ー{Return}＃クラスベースのオブザーバーパッケージPackage My :: ParandRulesを作成します。サブアップデート{My（$ item、$ action）= @_; if（$ action eq 'prepare_for_bed'）{$ item-> brush_teeth; $ item-> wash_face; my :: parent-> add_observer（__package__）; $ parent-> prepare_for_bed＃ブラシ、フロス、ガーラ、およびウォッシュフェイス$ child-> prepare_for_bed＃はブラシを磨くふりをします。 ・Perl


クラス::観測可能です 関連ソフトウェア

私たちに関しては