| كائن :: Insideout. كائن :: InsideOut هي وحدة دعم كائن من الداخل الشامل. |
التحميل الان |
كائن :: Insideout. الترتيب والملخص
- رخصة:
- Perl Artistic License
- اسم الناشر:
- Jerry D. Hedden
- موقع ويب الناشر:
- http://search.cpan.org/~jdhedden/
كائن :: Insideout. العلامات
كائن :: Insideout. وصف
كائن :: InsideOut هو وحدة دعم كائن من الداخل الشامل. كائن :: Insideout هو وحدة دعم كائن من الداخل إلى الخارج. {استخدم كائن :: InsideOut؛ # الحقل الرقمي # مع Geting Get + Set Accessor MyData: الحقل: النوع (رقمي): Accessor (بيانات)؛ # يأخذ "الإدخال" (أو "الإدخال"، إلخ.) كمعلمة إلزامية مع -> جديد () بلدي init_args: initargs = ('الإدخال' => {'Regex' => QR / ^ إدخال $ / I، "إلزامي" => 1، "النوع" => "رقمي"،}،)؛ # التعامل مع args فئة خاصة كجزء من -> جديد () الفرعية: init {بلدي ($ الذاتي، $ args) = @؛ # ضع معلمة "الإدخال" إلى حقل "البيانات" $> تعيين (data، $ args -> {'الإدخال'})؛ }} حزمة بلدي :: الفصل :: Sub؛ {استخدم كائن :: Insideout QW (بلدي :: الفصل)؛ # قائمة الحقل # مع "get_x" القياسية و "set_x" يأخذ "info" كمعلمة قائمة اختيارية إلى -> جديدة ( الحقل: اكتب (قائمة): قياسي (معلومات): Arg ('الاسم' => 'info'، "الافتراضي" => "فارغ")؛ } حزمة فو. {استخدم كائن :: InsideOut؛ # الحقل الذي يحتوي على بلدي :: كائنات الفئة # مع ملحق مجتمعة # بالإضافة إلى معالجة المعلمة التلقائية على إنشاء كائن إنشاء بلدي: الحقل: النوع: النوع (بلدي :: الفصل): الكل (foo)؛ } حزمة الرئيسية؛ بلدي $ obj = بلدي :: الفصل :: Sub-> جديد ("الإدخال" => 69)؛ بلدي معلومات $ = $ obj-> get_info ()؛ # بياناتي $ = $ OBJ-> البيانات ()؛ # 69 $ obj-> البيانات (42)؛ بيانات $ = $ OBJ-> البيانات ()؛ # 42 $ obj = my :: class :: sub-> جديد ('info' => 'مساعدة'، "الإدخال" => 86)؛ بيانات $ = $ OBJ-> البيانات ()؛ # 86 $ معلومات = $ obj-> get_info ()؛ # $ obj-> set_info (qw (foo bar baz))؛ معلومات $ = $ obj-> get_info ()؛ # بلدي $ foo_obj = foo-> جديد ('foo' => $ obj)؛ $ foo_obj-> foo () -> البيانات ()؛ # 86Requirements: متطلبات بيرل: perl.
كائن :: Insideout. برامج ذات صلة