אובייקט :: Introut. אובייקט :: Intistout הוא מודול תמיכה מקיף בתוך אובייקט.
הורד עכשיו

אובייקט :: Introut. דירוג וסיכום

אובייקט :: Introut. תגים

פרל מודול לְהִתְנַגֵד inside-out אובייקט מודול התמיכה inside-out

אובייקט :: Introut. תיאור

אובייקט :: Infulout הוא מודול תמיכה מקיף בתוך אובייקט. אובייקט :: Infulout הוא מקיף מחוץ אובייקט תמיכה מודול.Synopsis החבילה שלי :: בכיתה; {שימוש אובייקט :: Introut; # שדה מספרי # עם קבלה משולבת + הגדר Accessor שלי @data: שדה: סוג (מספריים): Accessor (נתונים); # לוקח 'קלט' (או 'קלט', וכו ') כמו פרמטר חובה ל -> חדש ()% שלי init_args: initargs = (' קלט '=> {' regex '=> QR / ^ קלט $ / i, 'חובה' => 1, 'סוג' => 'מספריים',}); # לטפל בארגונים ספציפיים בכיתה כחלק -> חדש () תת-init: init {שלי ($ עצמי, $ args) = @_; # PUT "קלט" פרמטר לשדה 'נתונים' $ עצמי-> Set (@data, $ args -> {'קלט'}); }} חבילה שלי :: מחלקה :: משנה; {השתמש אובייקט :: מבטו QW (שלי :: מחלקה); # English Field # עם 'Get_x' ו- 'Set_x' סטנדרטי '# לוקח' מידע 'כפרמטר רשימת אופציונלי ל- -> חדש () ערך נוסף נוסף ל- @info Array # Defaults כדי שלי @info: שדה: סוג (רשימה): תקן (מידע): ARG ('שם' => 'מידע', 'ברירת מחדל' => 'ריק'); } חבילה foo; {שימוש אובייקט :: Introut; # שדה המכיל אובייקטים שלי :: אובייקטים Class # עם עיבוד פרמטר משולב בתוספת עיבוד פרמטר אוטומטי על יצירת אובייקט שלי @foo: שדה: סוג (שלי :: מחלקה): כל (foo); } החבילה הראשית; שלי $ obj = שלי :: מחלקה :: תת-> חדש ('קלט' => 69); שלי $ מידע = $ OBJ-> Get_info (); # הנתונים שלי $ = $ OBJ-> נתונים (); # 69 $ OBJ-> נתונים (42); $ $ = $ OBJ-> נתונים (); # 42 $ OBJ = My :: מחלקה :: תת-> חדש ('מידע' => 'עזרה', 'קלט' => 86); $ $ = $ OBJ-> נתונים (); # 86 $ info = $ OBJ-> Get_info (); # $ OBJ-> Set_info (QW (Foo BAZ BAZ)); $ info = $ OBJ-> Get_info (); # $ foo_obj = foo-> חדש ('foo' => $ OBJ); $ foo_obj-> foo () -> נתונים (); # 86requirements: · Perl דרישות: · פרל

אובייקט :: Introut. תוכנה קשורה