بوف امتداد بيرل الذي يوفر كتابة أقوى وتغليف وميراث
التحميل الان

بوف الترتيب والملخص

بوف العلامات

طباعة التغليف ميراث طباعة أقوى مغريات أقوى ميراث أقوى

بوف وصف

امتداد بيرل الذي يوفر كتابة أقوى وتغليف وميراث POOF هي وحدة بيرل تحاول إعطاء الإطار بيرل أكثر رسمية في تنفيذ OO. توفير تمييز بين الخصائص والأساليب مع ثلاثة مستويات من الوصول (الجمهور، المحمي والخاصة). كما أنه يقيد الطريقة التي تتجاوز في فئات الأطفال إلى تلك الخصائص أو الأساليب التي تحمل علامة "افتراضية"، وفي هذه الحالة يمكن أن تتجاوز فئة الطفل الطريقة ولكن فقط من سياقها الخاص. بقدر ما يتعلق الأمر بالوالد بطريقة تجاوز أو الممتلكات التي لا تزال تتصرف بالطريقة المتوقعة من وجهة نظرها. التأكد من ذلك أعلاه: يمكن لأي أطفال من MyClass تجاوز طريقة "OpinionAboutPerl6" كما هو واضح "الظاهري": # في الطفل الفرعي OpinionAboutPerl6: الطريقة العامة {بلدي ($ OBJ) =_؛ عودة "المتأنق، إنه أنبوبي تماما !!"؛ ومع ذلك، إذا كانت الطريقة العامة "RealpublicopinoBoutperl6"، فإنها تسمى بعد ذلك، فستكون بدوره استدعاء طريقة "OpinionAboutPerl6" كما هو محدد في MyClass، لأنه من منظور الوالدين، لم تتغير الطريقة. أعتقد أن هذا سلوك حاسم ويتماشى مع كيفية تنفيذ مبادئ OO في لغات شهيرة أخرى مثل Java و C # و C ++. حزمة Synopsis MyClass؛ استخدام قاعدة QW (POOF)؛ # اسم الخصائص الفئة الفرعية: خاصية العمومية {{النوع "=>" سلسلة "،" الافتراضي "=> '' '،' Regex '=> QR / ^. {0،128} $ /،}}} Sub Age: Property Public { {النوع "=>" عدد صحيح "،" الافتراضي "=> 0، 'Min' => 0، 'MAX' => 120،}} marrialstatus Sub: افتراضي "=>" واحد "،" Regex "=> QR / ^ (؟ واحدة | متزوج) $ / 'IFilter' => Sub {My $ Val = Shift؛ عودة LC $ فال. }}}}} الزوج الفرعي: خاصية خاص {{اكتب "=>" String "،" الافتراضي "=> 'Single'، 'Regex' => QR / ^. {0،64} $ /، 'ifilter' => sub {بلدي $ val = التحول؛ عودة LC $ فال. }}}} الرأي Sub OpinionAboutPerl6: خاصية محمية {{'type' => 'string'، 'الافتراضي' => 'أنا قلق جدا، أنا لا أنام في الليل. " }} # أساليب الفئة MarrialStatus: الطريقة العامة {بلدي ($ obj، $ sequer) =_؛ إذا كان ($ الطالب EQ "Nefarious Looking Stranger") {إرجاع "عدم عملك"؛ } آخر {return $ obj -> {'marrialstatus'}}} sub getmarried: الطريقة العامة {بلدي ($ obj، $ new_spouse) = @؛ $ obj -> {'spouse'} = $ new_spouse؛ إذا كان ($ obj-> perrors) {أخطاء $ = $ obj-> pgeterrors؛ إذا (موجود أخطاء $ -> {'الزوج'}) {Die 'مشاكل، Marrige غير متوفر! أخطاء $ -> {' الزوج '} "؛ ارجع 0؛}} {$ obj -> {'marrialstatus'} = 'متزوج'؛ العودة 1؛}}} الرأي Sub OpinionAboutPerl6: الطريقة العامة Virtual {My ($ obj) = _؛ العودة" أوه، عظيم، أتطلع إليها. انها تقريبا هنا :) "؛} sub realpublicopinionaboutperl6: الطريقة العامة {بلدي ($ OBJ) =_؛ عودة $ obj-> viewaboutperl6؛} المتطلبات: perl.

بوف برامج ذات صلة