فئة :: سائق
التحميل الان

فئة :: سائق الترتيب والملخص

فئة :: سائق العلامات

الوحدة النمطية بيرل انشاء سائق توليد سائق التسلسلات الهرمية الطبقة

فئة :: سائق وصف

Class :: Driver هو وحدة بيرل لتوليد السائق ("مركب") التسلسلات الهرمي للفئة على ذبابة. مثال # هذا هو ملخص طويل حقا، ولكن نأمل أن يمنحك فكرة ... حزمة mypackage؛ استخدام الفئة :: برنامج التشغيل؛ استخدم Base Q (Class :: برنامج التشغيل)؛ لدينا السائقين العودة 1 الفرعية الجديدة {بلدي ($ فئة، args) = @؛ يموت "mime_type مطلوب" ما لم يكن ($ args {mime_type})؛ يموت "لا يوجد برنامج تشغيل للتعامل مع نوع $ Args {mime_type}" ما لم يكن ($ برامج التشغيل {$ args {mime_type}})؛ عودة $ class-> driver_load ($ drivers {$ args {mime_type}}، args)؛ } Sub Driver_New {بلدي ($ فئة، args) = @؛ عودة يبارك القوام، فئة $؛ } Sub Driver_Required {1؛ } Sub Driver_Requied_here {0؛ } حزمة mypackage :: AVI؛ استخدام mypackage؛ استخدم Base Q (mypackage)؛ استخدام الفيديو :: معلومات؛ $ mypackage :: برامج التشغيل {'video / x-msvideo'} = 'avi'؛ العودة 1 سائق فرعي {"AVI"؛ } Sub Driver_New {بلدي ($ فئة، args) = @؛ يموت "ملف" هو المعلمة المطلوبة ل $ Args {mime_type} الملفات "ما لم يكن ($ args {file})؛ $ args {info} = video :: info-> جديد (-file => $ args {file}) عودة $ class-> super :: driver_new ( args)؛ } المدة الفرعية {بلدي $ الذاتي = التحول؛ عودة $ args {info} -> المدة؛ } حزمة mypackage :: mp3؛ استخدم Base Q (mypackage)؛ استخدم MP3 :: معلومات؛ $ mypackage :: برامج التشغيل {'Audio / mpeg'} = 'mp3'؛ ## (الخ ...) حزمة الرئيسية؛ بلدي $ foo = mypackage-> جديد (file => 'foobar.mp3'، mime_type => 'الصوت / mpeg')؛ طباعة "foobar.mp3 هو"، $ foo-> مدة، "ثوان long.n"؛ متطلبات: perl.

فئة :: سائق برامج ذات صلة