Klasse :: Driver Class :: Driver is een Perl-module om bestuurder te genereren ("Composite") Klasse-hiërarchieën on-the-fly.
Download nu

Klasse :: Driver Rangschikking & Samenvatting

Klasse :: Driver Tags

Perl-module genereren bestuurder genereren bestuurder Klasse hiërarchieën

Klasse :: Driver Beschrijving

Class :: Driver is een Perl module om de bestuurder te genereren ( "composite") klassehiërarchieën on-the-fly. Voorbeeld # Dit is een heel lange synopsis, maar hopelijk geeft je een idee ... pakket mypackage geven; gebruik Class :: Driver; gebruiksbasis q (klasse :: Driver); onze% drivers; return 1; sub nieuwe {mijn ($ klasse,% args) = @_; sterven "mime_type nodig is", tenzij ($ args {mime_type}); die "geen driver type handvat $ args {mime_type}" tenzij ($ drivers {$ args {mime_type}}); terug $ klas-> driver_load ($ drivers {$ args {mime_type}},% args); } Sub driver_new {mijn ($ klasse,% args) = @_; return zegen% args, $ klasse; } Sub driver_required {1; } Sub driver_requied_here {0; } Pakket mypackage :: avi; Gebruik mypackage; gebruiksbasis q (mypackage); Gebruik Video :: Info; $ Mypackage :: drivers { 'video / x-msvideo'} = 'avi'; return 1; sub bestuurder { "avi"; } Sub driver_new {mijn ($ klasse,% args) = @_; sterven " 'file' is een vereiste parameter voor $ args {mime_type} bestanden", tenzij ($ args {file}); $ Args {info} = Video :: Info-> new (-file => $ args {file}) of sterven "Mislukt op een Video :: Info object voor $ args {file} maken"; terug $ klas-> SUPER :: driver_new (% args); } Duur sub {my $ zelf = shift; terug $ args {info} -> duur; } Verpakken mypackage :: mp3; gebruiksbasis q (mypackage); Gebruik MP3 :: Info; $ Mypackage :: drivers { 'audio / mpeg'} = 'mp3'; ## (etc ...) verpakken hoofd; mijn $ foo = MyPackage-> new (file => 'foobar.mp3', mime_type => 'audio / mpeg'); afdrukken "foobar.mp3 is", $ foo-> duur, "seconden long.n"; Vereisten: · Perl

Klasse :: Driver Gerelateerde software