قرد :: التصحيح :: العملالتفاف / إضافة / استبدال / حذف Subs من حزمة أخرى (مع استعادة) | |
التحميل الان |
قرد :: التصحيح :: العمل الترتيب والملخص
الإعلانات
- رخصة:
- Perl Artistic License
- السعر:
- FREE
- اسم الناشر:
- Steven Haryanto
- موقع ويب الناشر:
- http://search.cpan.org/~sharyanto/
قرد :: التصحيح :: العمل العلامات
قرد :: التصحيح :: العمل وصف
القرد الترقيع هو فعل تعديل حزمة في وقت التشغيل: إضافة روتين فرعي / طريقة، استبدال / حذف / التفاف آخر، إلخ. يجعل من السهل القيام بذلك، على سبيل المثال: # إضافة فرعية * {"الهدف :: Sub1 "} = Sub {...}؛ # طريقة أخرى، يمكن القيام به من أي هدف حزمة الملفات؛ Sub Sub2 {...} # # حذف وحدة فرعية UNDEF * {"الهدف :: SUB3"}؛ قرد :: Patch :: Action هو وحدة بيرل التي تجعل الأمور أسهل من خلال مساعدتكم في تطبيق كومة من التصحيحات و UPT في Order غير مرنة، استخدم Monkey :: Patch :: Action QW (Patch_Package)؛ حزمة فو. Sub1 Sub1 {قل "FOO's Sub1"} Sub Sub2 {قل "Foo's Sub2، Args ="، انضم إلى ("،"، @)} Sub Meth1 {My $ قل "فو ميث 1"} شريط الحزمة؛ لديناa = qw (foo)؛ حزمة الرئيسية بلدي ح. # التعامل مع كائن بلدي $ foo = foo-> جديد؛ بلدي بار $ = bar-> جديد؛ # استبدال Rub Routine $ H = Patch_Package ('foo'، 'sub1'، "استبدال"، sub {"qux"})؛ فو :: SUB1 ()؛ # يقول "كوكس" الحموضة $ H؛ فو :: SUB1 ()؛ # يقول "FOO's Sub1" # إضافة روتين فرعي $ h = patch_package ('foo'، 'sub3'، "إضافة"، sub {"qux"})؛ فو :: Sub3 ()؛ # يقول "كوكس" الحموضة $ H؛ فو :: Sub3 ()؛ # يموت # حذف روتين فرعي $ h = patch_package ('foo'، 'sub2'، 'delete')؛ فو :: Sub2 ()؛ # يموت undef $ h؛ فو :: Sub2 ()؛ # يقول "Foo's Sub2، Args =" # التفاف روتين فرعي $ h = patch_package ('foo'، 'sub2'، "التفاف"، sub {بلدي $ CTX = التحول؛ قل "التفاف $ CTX -> {package} :: {package} :: $ CTX -> {subname} "؛ $ ctx -> {og} -> (@ @)؛})؛ فو :: Sub2 (1،2،3)؛ # يقول "التفاف فو :: SUB2" ثم "فو الفرعية، Args = 1،2،3" undef $ h؛ فو :: Sub2 (1،2،3)؛ # يقول "Foo's Sub2، Args = 1،2،3" # تصحيحات التراص (ملاحظة: يمكن في الواقع أن تكون غير مبررة في ترتيب عشوائي) بلدي ($ h2، $ h3)؛ $ h = patch_package ('foo'، 'sub1'، "استبدال"، sub {"qux"})؛ فو :: SUB1 ()؛ # يقول "qux" $ h2 = patch_package ('foo'، 'sub1'، 'delete')؛ فو :: SUB1 ()؛ # تموت $ h3 = patch_package ('foo'، 'sub1'، 'استبدال'، sub {"quants"})؛ فو :: SUB1 ()؛ # يقول "quant" undef $ H3؛ فو :: SUB1 ()؛ # يموت undef $ h2؛ فو :: SUB1 ()؛ # يقول "كوكس" الحموضة $ H؛ فو :: SUB1 ()؛ # # يقول "FOO's Sub1" الصفحة الرئيسية المنتج
قرد :: التصحيح :: العمل برامج ذات صلة