クラス:: dot :: type. ランキングとまとめ
- ライセンス:
- Perl Artistic License
- 出版社のWebサイト:
- http://search.cpan.org/asksh/Modwheel-0.3.3/lib/Modwheel.pm
クラス:: dot :: type. タグ
クラス:: dot :: type. 説明
型制約の基本クラス Class :: dot :: typeは、type constraints.synopsis#のための基本Perlクラスです。 MyClassパッケージ;クラス:: dot2を使用する。プロパティ 'name' =>(ISA => 'str'、デフォルト=> 'Fox登録褐色'); sub play_with_attribute_meta {My($ self)= @_; My $ name_meta = $ self - > __ meta __( 'name'); #属性名の型の名前を取得します。 My $ TYPE = $ name_meta-> type; #これはどのようなアクセサーであるかを見つけましょう。 (デフォルト:オーバーライド可能)My $ accessor_type = $ name_meta-> accessor_type; #このタイプの制約チェックのサブルーチンREFを取得します。 My $ check_constraint = $ name_meta-> constraint; My $ current_value = $ self-> name; (!$ check_constraint - >($ current_value)){croak "の値が$ type"}#の制約チェックを渡さない場合は、getterとsetter nameを取得します。 My $ getter_name = $ name_meta-> getter_name; My $ setter_name = $ name_meta-> setter_name; #name()を呼び出して値を取得:$ current_value = $ self - > $ getter_name; #set_name($ value)$ self - > $ setter_name( 'new value')を呼び出して値を設定します。 #このタイプの両親のリストを取得します。 My @isa_for_type = $ meta-> linear_isa; #このタイプのプライバシーオプションを取得します(デフォルト:Public(RW))。 My $ PRIVACY_TYPE = $ META->プライバシー。 #このプライバシータイプのプライバシールールを入手してください。 My $ Privacy_Rules = $ META-> Privacy_Rule;印刷$ PRIVACY_RULES - > {has_getter};印刷$ PRIVACY_RULES - > {has_setter};戻る; } 要件: ・Perl
クラス:: dot :: type. 関連ソフトウェア