| محفز :: تحكم :: القيود محفز :: تحكم :: القيود تحتوي على توقيعات القيود لإجراءات تحكم. |
التحميل الان |
محفز :: تحكم :: القيود الترتيب والملخص
- رخصة:
- Perl Artistic License
- اسم الناشر:
- Robert Sedlacek
- موقع ويب الناشر:
- http://search.cpan.org/~phaylon/
محفز :: تحكم :: القيود العلامات
محفز :: تحكم :: القيود وصف
محفز :: Controller :: القيود تحتوي على تواقيع القيود لإجراءات تحكم. محفز :: تحكم :: القيود تحتوي على توقيعات القيود لإجراءات تحكم. حزمة MyApp :: Controller :: FOO؛ ... استخدم قاعدة QW (محفز :: Controller :: القيود)؛ __Package __-> التكوين # التحقق من صحة معرف المستخدم وتضخيمها لكائن المستخدم => {# تحقق من التحقق من معرف المستخدم => sub {بلدي ($ الذاتي، $ c، $ id) =_؛ العودة $ c-> is_valid_user_id ($ معرف)؛}، # إلى الأمام لهذا الإجراء إذا فشل التحقق من الصحة on_fail => 'Invalid_User'، # إذا كانت القيمة صالحة، قم بتشغيله من خلال هذا الفلتر # بعد ذلك post_filter => Sub {My ($ الذاتي، $ C، $ ID) = @ _؛ c-> fetch_user_by_id (id_user_by_ided ($ معرف)؛}،} # الميراث highinteger => {inherit_from => "عدد صحيح"، تحقق => sub {$ _> 22}،}، # طي الوسائط متعددة mydate => {# خذ ثلاثة أعداد صحيحة وإرجاع قيمة واحدة يأخذ => 3، يعطي => 1، # تضخيم كائن DateTime Post_filter => Sub {My ($ الذاتي، $ C، $ y، $ m، $ d) =_؛ DateTime-> جديد (السنة => $ y، شهر => $ m، day => $ d)؛}}})؛ # إضافة اثنين من الأعداد الصحيحة، فقط رميات الاستثناء على فشل القيود الفرعية إضافة: القيود المحلية (2) القيود (عدد صحيح A، عدد صحيح B) {بلدي ($ الذاتي، $ c) =_؛ $ c-> res-> الجسم ($ _ {a} + $ _ {b})؛ } # # ضع الكلمة في الخبط، تحت مفتاح Stashword الفرعي المفتاح: Args Local (1) قيود (Word Foo *) {} # user_obj ينتهي ككائن مستخدم في View_user الفرعي Stash: Local Args (1) قيود (مستخدم User_obj *) {} Sub Invalid_User: Private {# Handle Userid غير صالح} 1؛ المتطلبات: متطلبات بيرل: perl.
محفز :: تحكم :: القيود برامج ذات صلة