Clase :: Conductor Clase :: Driver es un módulo Perl para generar controlador ("compuesto") Jerarquías de clase sobre la marcha.
Descargar ahora

Clase :: Conductor Clasificación y resumen

Clase :: Conductor Etiquetas

Módulo perl generar conductor generar conductor Jerarquías de clase

Clase :: Conductor Descripción

Clase :: Driver es un módulo Perl para generar controladores ("compuesto") jerarquías de clase sobre la marcha. Ejemplo # Esta es una sinopsis realmente larga, pero espero que le dé una idea ... paquete MyPackage; Usar clase :: controlador; usar base q (clase :: controlador); nuestros% de conductores; return 1; Sub nuevo {My ($ Class,% args args) = @_; DIE "MIME_TYPE se requiere" a menos que ($ args {MIME_TYPE}); Muere "ningún controlador para manejar el tipo $ args {mime_type}" a menos que ($ controladores {$ args {mime_type}}); Devuelva $ Class-> driver_load ($ controladores {$ args {mime_type}},% args); } Sub Driver_New {My ($ clase,% args) = @_; Devolver Bless% args, $ clase; } Sub Driver_Required {1; } Sub Driver_requied_here {0; } Paquete MyPackage :: AVI; usar MyPackage; Use la base Q (MyPackage); Usa el video :: Info; $ MyPackage :: drivers {'video / x-msvideo'} = 'avi'; return 1; subcador {"avi"; } Sub Driver_New {My ($ clase,% args) = @_; Die "'File' es un parámetro requerido para $ ARGS {MIME_TYPE} archivos" a menos que ($ args {file}); $ args {info} = video :: info-> nuevo (-file => $ args {file}) o die "Error al crear un video :: información de información por $ args {file}"; Devolver $ Class-> Super :: Driver_New (% args); } Sub Duración {My $ Self = Shift; Devuelve $ args {info} -> Duración; } Paquete MyPackage :: MP3; Use la base Q (MyPackage); Utilice MP3 :: Info; $ MyPackage :: Drivers {'Audio / MPEG'} = 'MP3'; ## (etc ...) paquete principal; My $ foo = mypackage-> nuevo (archivo => 'foobar.mp3', mime_type => 'Audio / MPEG'); Imprimir "foobar.mp3 es", $ foo-> duración, "segundos long.n"; Requisitos: · Perl

Clase :: Conductor Software relacionado