Klasse :: Fahrer. Klasse :: Treiber ist ein Perl-Modul, um Treiber-Klassenhierarchien auf der Fly zu generieren.
Jetzt downloaden

Klasse :: Fahrer. Ranking & Zusammenfassung

Klasse :: Fahrer. Stichworte

Perl-Modul generieren Treiber Fahrer generieren Klassenhierarchien

Klasse :: Fahrer. Beschreibung

Klasse :: Treiber ist ein Perl-Modul zum Generieren von Treiber ("Composite") Klassenhierarchien auf der Fly. Beispiel # Dies ist eine wirklich lange Zusammenfassung, aber hoffentlich gibt es Ihnen eine Idee ... Packung Mypackage; Verwenden Sie Klasse :: Treiber; Verwenden Sie Base Q (Klasse :: Treiber); unsere% Treiber; Rückgabe 1; Sub New {My ($ class,% args) = @_; Die "Mime_Type ist erforderlich", sofern nicht ($ args {mime_type}); Die "Kein Treiber, um den Typ $ $ args {Mime_Type} zu behandeln, sofern nicht ($ Treiber {$ args {mime_type}}); Rendite $ class-> driver_load ($ treiber {$ args {mime_type}},% args); } sub treiber_new {meine ($ class,% args) = @_; Rückkehr Bless% Args, $ Class; } Sub Driver_Required {1; } Sub Driver_Requied_Her {0; } Paket Mypackage :: AVI; Verwenden Sie Mypackage; BASE Q (MYPACKAGE) verwenden; Verwenden Sie video :: info; $ Mypackage :: treiber {'video / x-msvideo'} = 'avi'; Rückgabe 1; Unterfahrer {"avi"; } sub treiber_new {meine ($ class,% args) = @_; Die "'' Datei 'ist ein erforderlicher Parameter für $ args {mime_type} Dateien", sofern nicht ($ args {file}); $ args {info} = video :: info-> neu (-file => $ args {file}) oder sterben "Fehler beim Erstellen eines Videos :: Infoobjekt für $ args {file}"; Rückgabe $ class-> super :: driver_new (% args); } Unterdauer {mein $ self = shift; Rückgabe $ args {info} -> Dauer; } Paket MYPACKAGE :: MP3; BASE Q (MYPACKAGE) verwenden; Verwenden Sie MP3 :: Info; $ MyPackage :: Treiber {'Audio / MPEG'} = 'MP3'; ## (usw. ...) package main; mein $ foo = mypackage-> neu (Datei => 'foobar.mp3', mime_type => 'Audio / MPEG'); drucken "foobar.mp3 ist", $ foo-> dauer, "sekunden lang.n"; Anforderungen: · Perl.

Klasse :: Fahrer. Zugehörige Software