النص :: Ubertext :: إرسال
التحميل الان

النص :: Ubertext :: إرسال الترتيب والملخص

النص :: Ubertext :: إرسال العلامات

الوحدة النمطية بيرل نموذج إرسال Ubertext. قالب Ubertext. إرسال Ubertext

النص :: Ubertext :: إرسال وصف

النص :: Ubertext :: Dispatch هو وحدة بيرل التي تتبع وحدات التعليمات البرمجية المحملة التي تمتد لغة قالب UberText. النص :: Ubertext :: Dispatch هو وحدة بيرل التي تتبع وحدات التعليمات البرمجية المحملة التي تمتد لغة قالب UberText. يتم إنشاء كائن الإرسال تلقائيا لنص جديد :: Ubertext Objects.Extending Ubertextif، تكتب وحدة نمطية تتكامل مع قالب Ubertext، يجب أن يكون كائن Ubertext ليكون على دراية به. $ Uber = text :: Ubertext-> جديد ()؛ $ uber-> تمديد ($ myoBject)؛ $ uber-> تمديد (myclass)؛ وحدة Ubertext تمرير الكائن أو اسم الفئة إلى النص :: Ubertext :: Dispatch Object. ثم يستدعي كائن الإرسال طريقة Ubertext للوحدة التي تم تمريرها. وستحتاج طريقة Ubertext إلى إرجاع 3 متغيرات. الأول هو الكائن الذي سيحتاجه جدول الإرسال إلى استخدامه عند مواجهة NEMMAPCE المخصص الخاص بك. المتغير الثاني هو مساحة الاسم المفضلة التي يستخدمها الكائن، والثالث هو تجزئة مجهولة تحتوي على جدول الإرسال مطابقة علامات Ubertext و Perl Code.Examplecustom وحدة حزمة السيارات؛ $ dispatch = {"جعل" => make، "نموذج" => نموذج "اللون" => اللون، "عداد المسافات" => الأميال،}؛ فرع Ubertext {بلدي ($ الذاتي) = التحول؛ العودة ($ الذاتي، "My.UTomobile"، $ إرسال)؛} الفرعي جعل {بلدي ($ الذاتي) = التحول؛ العودة ($ الذاتي -> {color})؛} sub mileage {بلدي ($ الذاتي، العقدة $) = @ _؛ بلدي ($ القيمة)؛ إذا كانت ($ العقدة-> commandValue () EQ "رحلة") {$ القيمة = $ الذاتي -> {rodometer} -> {trip}؛}} {$ value = $ self -> {rodometer} - > {Basic}؛} إذا كان ($ العقدة> GetOptValue ("وحدات") EQ "متري") {# تحويل الأميال إلى كيلومتر $ القيمة = $ القيمة * 1.61؛} $ $ قيمة؛} Ubertext Fileethe الشركة المصنعة لسيارتي يتم وصفه بأنه . Hy Last Trip كانت كيلومتر. المتطلبات: perl.

النص :: Ubertext :: إرسال برامج ذات صلة