Klasse :: dot :: type

Basisklasse für Typeneinschränkungen
Jetzt downloaden

Klasse :: dot :: type Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Ask Solem
  • Website des Verlags:
  • http://search.cpan.org/~asksh/Modwheel-0.3.3/lib/Modwheel.pm

Klasse :: dot :: type Stichworte


Klasse :: dot :: type Beschreibung

Basisklasse für Typeneinschränkungen Klasse :: dot :: type ist eine Basis-Perl-Klasse für Typ Constraints.Synopsis # Sie möchten diese Informationen wahrscheinlich von Ihren Instanz von __Meta__ # attriute erhalten. Paket Myclass; Verwenden Sie Klasse: dot2; Eigenschaft 'Name' => (isa => 'str', default => 'Mr. Fox Quick Brown'); sub play_with_attribute_meta {mein ($ self) = @_; mein $ name_meta = $ self -> __ meta __ ('Name'); # Holen Sie sich den Namen des Typs für den Attributnamen. mein $ type = $ name_meta-> type; # Finden Sie heraus, welche Art von Accessor dies ist. (Standardeinstellung: Überschreiben) My $ accessor_type = $ name_meta-> accessor_type; # Holen Sie sich ein Subroutine-REX-REX auf die CONSTRAINT-Prüfung für diesen Typ. meine $ check_constraint = $ name_meta-> Einschränkung; mein $ current_value = $ self-> name; Wenn (! $ check_constraint -> ($ current_value)) {croak "Wert des Namens übergibt nicht den Constraint-Check für $ type"} # Hol den Getter- und Setter-Namen. mein $ setter_name = $ name_meta-> getter_name; mein $ setter_name = $ name_meta-> setzter_name; # Holen Sie sich den Wert mit dem Namen Namen (): $ current_value = $ self -> $ setter_name; # Legen Sie den Wert ein, indem Sie SET_NAME ($ value) aufrufen # Holen Sie sich die Liste der Eltern für diesen Typ. mein @Isa_for_type = $ meta-> linear_isa; # Holen Sie sich die Datenschutzoption für diesen Typ (Standardeinstellung: Öffentlichkeit (RW)). meine $ privacy_type = $ meta-> Privatsphäre; # Holen Sie sich die Datenschutzbestimmungen für diesen Datenschutztyp. meine $ prompacy_rules = $ meta-> privacy_rule; Print $ Privacy_Rules -> {Has_Getter}; Print $ Privacy_Rules -> {has_setter}; Rückkehr; } Anforderungen: · Perl.


Klasse :: dot :: type Zugehörige Software