Classe :: Driver Classe :: Driver é um módulo Perl para gerar hierarquias de classe driver ("composto") on-the-fly.
Baixe Agora

Classe :: Driver Classificação e resumo

Classe :: Driver Tag

Módulo Perl. gerar motorista gerar motorista hierarquias de classe

Classe :: Driver Descrição

Classe :: Driver é um módulo Perl para gerar hierarquias de classe de driver ("composto") on-the-fly. Exemplo # Esta é uma sinopse muito longa, mas espero que lhe dê uma ideia ... pacote mypackage; Use Classe :: Driver; Use base Q (Classe :: Driver); nossos% drivers; retorne 1; Sub new {my ($ classe,% args) = @_; morrer "mime_type é necessário" a menos que ($ args {mime_type}); Die "Nenhum driver para lidar com o tipo $ args {mime_type}" a menos que ($ drivers {$ args {mime_type}}); Retornar $ Class-> driver_load ($ drivers {$ args {mime_type}},% args); } SUB DRIVER_NEW {my ($ classe,% args) = @_; retorno abençoe% args, $ classe; } Sub Driver_Required {1; } Sub Driver_Requied_here {0; } pacote mypackage :: avi; Use mypackage; Use base Q (mypackage); Use Video :: Info; $ Mypackage :: drivers {'video / x-msvideo'} = 'AVI'; retorne 1; Subdutor {"AVI"; } SUB DRIVER_NEW {my ($ classe,% args) = @_; morrer "'arquivo' é um parâmetro obrigatório para $ ARGS {Mime_Type} Arquivos" a menos que ($ ARGS {FILE}); $ args {info} = video :: info-> novo (-file => $ args {file}) ou morrer "Falha ao criar um objeto de vídeo :: Objeto de informação para $ ARGS {FILE}"; retornar $ class-> super :: driver_new (% args); } sub duração {my $ self = shift; retornar $ args {info} -> duração; } pacote mypackage :: mp3; Use base Q (mypackage); Use MP3 :: Info; $ Mypackage :: drivers {'áudio / mpeg'} = 'mp3'; ## (etc ...) pacote principal; meu $ foo = mypackage-> novo (file => 'foobar.mp3', mime_type => 'audio / mpeg'); Imprimir "foobar.mp3 é", $ foo-> duração, "segundos long.n"; Requisitos: · Perl.

Classe :: Driver Software Relacionado