Klasse :: DOT :: Type basisklasse voor typebeperkingen
Download nu

Klasse :: DOT :: Type Rangschikking & Samenvatting

Klasse :: DOT :: Type Tags

Perl-module perl type Perl-klasse beperkingen Type beperkingen

Klasse :: DOT :: Type Beschrijving

Basisklasse voor Type Constraints Klasse :: DOT :: Type is een Base Perl-klasse voor Type Constraints.Synopsis # U wilt waarschijnlijk deze informatie van uw exemplaar van __meta__ # kennen. pakket myclass; gebruik klasse :: dot2; Woning 'Naam' => (ISA => 'STR', standaard => 'Mr. Fox Quick Brown'); sub play_with_attribute_meta {mijn ($ self) = @_; mijn $ name_meta = $ self -> __ meta __ ('naam'); # Krijg de naam van het type voor attribuutnaam. My $ TYPE = $ NAME_META-> TYPE; # Zoek uit wat voor soort accessor dit is. (Standaard: Overschrijdbaar) Mijn $ Accessor_Type = $ NAME_META-> ACCESSOR_TYPE; # Krijg een subroutine ref op de beperking van dit type. mijn $ check_constraint = $ name_meta-> beperking; mijn $ current_value = $ self-> naam; if (! $ check_constraint -> ($ Current_Value)) {Croak "-waarde van de naam passeert de beperking niet voor $ Type"} # Krijg de naam van de getter en de zetter. mijn $ GETTER_NAME = $ NAME_META-> GETTER_NAME; Mijn $ SETTER_NAME = $ NAME_META-> SETTER_NAME; # Krijg de waarde door naam te bellen (): $ Current_Value = $ zelf -> $ GETTER_NAME; # Stel de waarde in door SET_NAME ($ VALUE) $ SOND -> $ SETTER_NAME ('Nieuwe waarde') in te roepen; # Krijg de lijst met ouders voor dit type. mijn @isa_for_type = $ meta-> lineaire_isa; # Krijg de privacyoptie voor dit type (standaard: openbaar (RW)). mijn $ Privacy_Type = $ Meta-> Privacy; # Krijg de privacyregels voor dit privacytype. Mijn $ Privacy_RULES = $ META-> Privacy_RULE; Print $ Privacy_RULES -> {HAS_GETTER}; Print $ Privacy_RULES -> {has_setter}; opbrengst; } Vereisten: · Perl

Klasse :: DOT :: Type Gerelateerde software