Klasse :: Accessor.

Klasse :: Accessor ist ein automatisiertes Zubehör-Erzeuger-Tool.
Jetzt downloaden

Klasse :: Accessor. Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Marty Pauley
  • Website des Verlags:
  • http://search.cpan.org/~kasei/Class-Accessor-0.31/lib/Class/Accessor.pm

Klasse :: Accessor. Stichworte


Klasse :: Accessor. Beschreibung

Klasse :: Accessor ist ein automatisiertes Zubehör-Generation-Tool. Klasse :: Accessor ist ein automatisiertes Erzeugungstool von Accessorator.Synopsis-Paket. Verwenden Sie Base QW (Klasse :: Accessor); Mitarbeiter-> MK_ACCESSORS (QW (Name Rollengehalt)); # Inzwischen, in einem nahe gelegenen Code! # Klasse :: Accessor bietet neue (). mein $ mp = foo-> neu ({name => "marty", rolle => "japh"}); meine $ job = $ mp-> rolle; # erhält $ MP -> {rolle} $ MP-> Gehalt (400000); # setzt $ mp -> {Gehalt} = 400000 (ich wünsche) # Wie mein @info = @ {$ mp} {qw (Name Rolle)} my @info = $ mp-> get (QW (Name Rolle)); # $ MP -> {Gehalt} = 400000 $ MP-> Set ('Gehalt', 400000); Dieses Modul erzeugt von diesem Modul Zugangsoren / Mutatoren für Ihre Klasse. Sie erheben sich normalerweise mit einer Reihe von Methoden wie diesen: Subname {My $ self = shift; if (@_) {$ self -> {Name} = $ _ ; } $ self -> {Name} zurücksenden; } Subgehalt {mein $ self = schalte; if (@_) {$ self -> {etary} = $ _ ; } $ selbst zurückgeben -> {Gehalt}; } # usw. eins für jedes Datenteil in Ihrem Objekt. Während einige einzigartig sein werden, dabei Wertschecks und spezielle Lagertricks, werden die meisten einfach in Wiederholung Übungen sein. Es ist nicht nur ein schlechter Stil, einen Bündel wiederholungsreicher Code zu haben, sondern auch einfach nicht faul, was die echte Tragödie ist 'll Findet sich mit einem Satz von automatisch generierten Accessoren, die sogar angepasst werden können! Die grundlegende Einrichtung ist sehr einfach: Paket My :: Klasse; Verwenden Sie Base QW (Klasse :: Accessor); MY :: Klasse-> MK_ACCESSORS (QW (Foo Bar Car)); Fertig. MY :: Klasse hat jetzt einfache FOO (), bar () und auto () -Zürgerungen definiert. Anforderungen: · Perl.


Klasse :: Accessor. Zugehörige Software

Über uns