releaseaction.

releaseaction - إجراءات الاتصال عند الإصدار.
التحميل الان

releaseaction. الترتيب والملخص

الإعلانات

  • Rating:
  • رخصة:
  • Perl Artistic License
  • السعر:
  • FREE
  • اسم الناشر:
  • Ben Tilly
  • موقع ويب الناشر:
  • http://search.cpan.org/~tilly/Text-xSV-0.16/lib/Text/xSV.pm

releaseaction. العلامات


releaseaction. وصف

ReleaseAction - إجراءات الاتصال عند الإصدار. recreaseaction - إجراءات الاتصال عند الإصدار. كيفية استخدام ReleaseAction 'on_release'؛ {# OO Style My $ Tale = ReleaseAction-> جديد (Sub {print "الخروج Scopen"})؛ طباعة "في البكوب"؛ {# نمط وظيفي بلدي مقبض $ = on_release {print "exiting scopen"}؛ طباعة "في البكوب"؛ } {My $ Rollback = on_release {rollback_trans ()}؛ إذا (do_stuff ()) {$ rollback-> cancel ()؛ }} يوفر هذا وسيلة سهلة لإنشاء مقابض غير شفافة ستفعل شيئا ما عند تدميرها. هناك طريقتان لخلق مقبض جديد. يتخذ كلاهما حججا واحدا أو أكثر، مع أول إجراء يجب اتباعه عند إصدار المقبض والقياد (اختياري) أن تكون الحجج التي سيحصل عليها المقبض. New هي منشئ المنطق الموجه بلدي مقبض $ = RELEASEACTION-> جديد (SUB {PRINT SHIFT}، "وداعا قاسية Worldn")؛ ووظيفة اختيارية On_Release التي يمكنك استيرادها. بالنسبة لأولئك الذين يحبون هذا النوع من الأشياء، لقد قدمت النموذج الأولي @ للسكر النحوي. بلدي مقبض $ = on_release {print "goodbye cruel worldn"}؛ وينبغي أن تقرر أنك لا ترغب في القيام بالعمل عند الإصدار بعد كل شيء، يمكنك استدعاء الأسلوب "إلغاء (). كما هو مقترح في ملخص، يكون هذا مفيدا إذا كنت ترغب في إعداد ميكانيكا المعاملات. اجعل إجراء الإصدار يقوم بتنظيفك. ثم عند ارتكاب تغييراتك، قم بإلغاء استخدام Cleanup.example Releaseaction 'on_release'؛ # هذا يفعل نفس الشيء مثل تحديد الوحدة النمطية. sub tmp_Select {on_release {select shift} حدد التحول؛ } طباعة "هذه الطباعة تذهب إلى Stdoutn"؛ {بلدي $ hold_select = tmp_select (* stderr)؛ طباعة "تذهب هذه الطباعة إلى Stderrn"؛ } طباعة "الطباعة إلى Stdout مرة أخرى"؛ مثال أطول استخدام الكارب؛ استخدام CWD؛ استخدام releaseaction؛ Sub CD_TO {chdir ($ _ ) أو اعتراف ("لا يمكن أن تشدير إلى $ _ : $!")؛ } Sub TMP_CD {بلدي CWD CWD = CWD ()؛ CD_TO (التحول)؛ releaseAction-> جديد (CD_TO، CWD)؛ } Sub Something_interesting {My $ in_dir = tmp_cd ("some_dir")؛ # افعل شيئا مثيرا للاهتمام في Dir # الجديد، وسأعود تلقائيا إلى Dir القديم # عندما الخروج من الروتين الفرعي و $ in_dir يذهب # خارج نطاق. } متطلبات: perl.


releaseaction. برامج ذات صلة