| Object :: binnenkant Object :: Insideout is een uitgebreide inside-out-objectondersteuningsmodule. |
Download nu |
Object :: binnenkant Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Jerry D. Hedden
- Uitgever website:
- http://search.cpan.org/~jdhedden/
Object :: binnenkant Tags
Object :: binnenkant Beschrijving
Object :: binnenkant is een uitgebreide inside-out-ondersteuningsmodule. Object :: binnenkant is een uitgebreide inside-out object ondersteuning module.synopsis pakket mijn :: klasse; {gebruik object :: binnenkant; # Numeriek veld # met gecombineerde krijgen + set accessor mijn @DATA: veld: type (numeriek): accessor (gegevens); # Neemt 'Input' (of 'Input', enz.) Als een verplichte parameter naar -> NIEUW () My% init_args: initargs = ('Input' => {'Regex' => QR / ^ invoer $ / I, 'Verplicht' => 1, 'Type' => 'numeriek',},); # Handvat klasse-specifieke args als onderdeel van -> nieuwe () sub init: init {mijn ($ zelf, $ args) = @_; # Zet 'Input' -parameter in 'Data'-veld $ self-> set (@Data, $ args -> {' invoer '}); }} Pakket mijn :: Klasse :: sub; {gebruik object :: binnenkant qw (mijn :: klasse); # Lijstveld # met standaard 'Get_x' en 'Set_x' Accessors # neemt 'info' als een optionele lijstparameter naar -> NIEUWE () # Waarde automatisch toegevoegd aan @info array # standaardinstellingen op My @info: Veld: Type (lijst): Standaard (info): Arg ('Name' => 'info', 'Standaard' => 'leeg'); } pakket foo; {gebruik object :: binnenkant; # Veld met mijn :: Klasse-objecten # met gecombineerde accessor # plus automatische parameter verwerking op object creatie mijn @Foo: veld: type (mijn :: klasse): alles (foo); } Pakketnaam; Mijn $ obj = My :: Klasse :: sub-> Nieuw ('Input' => 69); My $ Info = $ OBJ-> GET_INFO (); # My $ Data = $ OBJ-> Gegevens (); # 69 $ OBJ-> Gegevens (42); $ Data = $ OBJ-> Gegevens (); # 42 $ OBJ = MY :: Klasse :: sub-> NIEUW ('INFO' => 'HELP', 'INPUT' => 86); $ Data = $ OBJ-> Gegevens (); # 86 $ Info = $ OBJ-> GET_INFO (); # $ OBJ-> SET_INFO (QW (FOO Bar Baz)); $ info = $ OBJ-> GET_INFO (); # mijn $ foo_obj = foo-> nieuw ('foo' => $ obj); $ foo_obj-> foo () -> gegevens (); # 86REQUIRINGEN: · PERL-vereisten: · Perl
Object :: binnenkant Gerelateerde software