Klasse :: Accessor Klasse :: Accessor is een gereedschap voor geautomatiseerde accessor.
Download nu

Klasse :: Accessor Rangschikking & Samenvatting

Klasse :: Accessor Tags

Perl-module perl generator accessoire accessor accessor c

Klasse :: Accessor Beschrijving

Klasse :: Accessor is een gereedschap voor geautomatiseerde accessor. Klasse :: Accessor is een gereedschap voor geautomatiseerde Accessor Generation.Synopsis Package-medewerker; Gebruik basis qw (class :: accessor); Werknemer-> MK_Accessors (QW (name rol salaris)); # Ondertussen, in een nabijgelegen stuk code! # Klasse :: Accessor biedt nieuw (). Mijn $ MP = FOO-> NIEUW ({NAME => "MARTY", ROL => "JAPH"}); mijn $ JOB = $ MP-> -rol; # krijgt $ MP -> {ROL} $ MP-> salaris (400000); # Sets $ MP -> {salaris} = 400000 (ik wens) # zoals mijn @info = @ {$ mp} {qw (naamrol)} My @info = $ mp-> krijgen (qw (naamrol)); # $ MP -> {salaris} = 400000 $ MP-> Set ('salaris', 400000); deze module genereert automagisch accessors / mutators voor uw klas. DOASTE VAN DE TIJD, het schrijven van accessors is een oefening in het snijden en plakken. Je komt meestal op met een reeks methoden zoals deze: subnaam {mijn $ self = shift; if (@_) {$ self -> {naam} = $ _ ; } return $ self -> {naam}; } Subsalaris {mijn $ self = shift; if (@_) {$ self -> {salaris} = $ _ ; } return $ self -> {salaris}; } # etc ... één voor elk stuk gegevens in uw object. Hoewel sommigen uniek zijn, controleert de waarde of speciale opslagtrucs, de meesten zullen eenvoudigweg oefeningen in herhaling zijn. Niet alleen is het slechte stijl om een heleboel repetitieve code te hebben, maar het is ook gewoon niet lui, wat de echte tragedie is. Als je je module een subklasse van de klasse :: Accessor maakt en je accessor-velden verificeert met MK_Accessors () dan Zich merken met een set automatisch gegenereerde accessoren die zelfs kunnen worden aangepast! De basisopstelling is heel eenvoudig: pakket mijn :: klasse; Gebruik basis qw (class :: accessor); Mijn :: Class-> MK_Accessors (QW (Foo Bar-auto)); Gedaan. Mijn :: Klasse heeft nu eenvoudige foo (), staaf () en auto () Toegangsverleners gedefinieerd. Vereisten: · Perl

Klasse :: Accessor Gerelateerde software