Class :: נצפו מחלקה :: נצפה היא מודול פרל המאפשר שיעורים אחרים אובייקטים להגיב לאירועים שלך.
הורד עכשיו

Class :: נצפו דירוג וסיכום

Class :: נצפו תגים

פרל מודול מִקרֶה כיתות Perl תגובות אירוע תגובות

Class :: נצפו תיאור

Class :: נצפים הוא מודול Perl המאפשר שיעורים אחרים אובייקטים להגיב לאירועים שלך. מחלקה :: נצפים הוא מודול Perl המאפשר שיעורים אחרים אובייקטים להגיב לאירועים שלך. השתמש QW בסיס (מחלקה :: נצפו); # לספר את כל הכיתות / אובייקטים התבוננות אובייקט זה כי שינוי המדינה # התרחשה תת ליצור {שלי ($ עצמי) = @_; הערכה {$ self -> _ perfect_create ()}; אם ($ @) {שלי :: חריגה-> לזרוק ("שגיאה חיסכון: $ @"); } $ עצמי-> Notify_observers (); } # אותו דבר, למעט לעשות סוג של שינוי מפורש ולעבור # טיעונים. תת עריכה {שלי ($ עצמי) = @_; % old_values שלי = $ self-> extract_values; הערכה {$ עצמן -> _ perfect_edit ()}; אם ($ @) {שלי :: חריגה-> לזרוק ("שגיאה חיסכון: $ @"); } $ Self-> Notify_obServers ('עריכה', Old_Values =>% Old_Values); } # הגדר חבילת משקיף שלי :: Observer; עדכון משנה {שלי ($ Class, $ אובייקט, $ פעולה) = @_; אלא אם כן ($ פעולה) {WASTN "לא יכול לפעול על ללא פעולה"; לַחֲזוֹר; } $ Class -> _ on_save ($ אובייקט) אם ($ פעולה EQ 'להציל'); $ class -> _ on_update ($ אובייקט) אם ($ פעולה EQ 'עדכון'); } # הרשמה את מחלקת הצופה עם כל המופעים של הכיתה הנצפה שלי :: אובייקט-> add_observer ('שלי :: Observer'); # הרשמה את מחלקת הצופה עם מופע יחיד של # מחלקה נצפה שלי $ אובייקט = שלי :: אובייקט-> חדש ('foo'); $ Object-> add_observer ('שלי :: Observer'); # הרשמה אובייקט משקיף באותו אופן שלי Observer $ = :: Observer-> חדש ('בר'); שלי :: אובייקט-> add_observer ($ Observer); $ האובייקט שלי = שלי :: אובייקט-> חדש ('foo'); $ אובייקט-> add_observer ($ משקיף); # הרשמה משקיף באמצעות Subroutine Sub Catch_observation {...} שלי :: אובייקט -> add_observer (catch_observation); $ האובייקט שלי = שלי :: אובייקט-> חדש ('foo'); $ אובייקט-> add_observer (catch_observation); # הגדר את המעמד הנצפה כהורה ולאפשר משקיפים # לשמש את חבילת הילד שלי :: הורה; השתמש קפדנית; השתמש QW בסיס (מחלקה :: נצפו); Sub Prepare_for_bed {שלי ($ עצמי) = @_; $ self-> notify_observers ('prepare_for_bed'); } Sub Brush_teeth {שלי ($ עצמי) = @_; $ עצמי -> _ brush_teeth (זמן => 45); $ עצמי -> _ floss_teeth (זמן => 30); $ עצמי -> _ gargle (זמן => 30); } Sub Wash_face {...} חבילה שלי :: ילד; השתמש קפדנית; השתמש QW בסיס (שלי :: הורה); Sub Brush_teeth {שלי ($ עצמי) = @_; $ עצמי -> _ wet_toothbrush (); } Sub Wash_face {return} # יצירת חבילת משקיף מבוסס מחלקה שלי :: parentrured; עדכון משנה {שלי ($ פריט, $ פעולה) = @_; אם ($ פעולה EQ 'prepare_for_bed') {$ פריט-> brush_teeth; $ פריט-> Wash_face; }} שלי :: הורה-> add_observer (__package__); $ הורה-> Prepare_for_bed # מברשת, חוט, gargle, לשטוף פנים $ הילד-> prespare_for_bed # להעמיד פנים, להעמיד פנים לשטוף את דרישות הפנים: · פרל

Class :: נצפו תוכנה קשורה