Nesne :: Insideout Nesne :: Insideout, kapsamlı bir içsel nesne destek modülüdür.
Şimdi İndirin

Nesne :: Insideout Sıralama ve Özet

Nesne :: Insideout Etiketler

Perl modülü > nesne içsel nesne destek modülü tersyüz

Nesne :: Insideout Açıklama

Nesne :: Insideout, kapsamlı bir içsel nesne destek modülüdür. Nesne :: Insideout, kapsamlı bir içsel olmayan nesne desteği modülüdür.Synopsis paketi :: sınıfım; {Nesneyi Kullan :: Insideout; # Sayısal alan # kombine get + set accessor ile @Data: Alan: Tip (Sayısal): Accessor (Veri); # 'Giriş' (veya 'Giriş', vb. 'Zorunlu' => 1, 'Tip' => 'Sayısal',},); # Sınıfa özgü argaları -> yeni () alt init: init {My ($ benlik, $ args) = @_; # 'GİRİŞ' parametresini 'Veri' alanına alın $ Self-> Set (@Data, $ args -> {'Giriş'}); }} Paket benim :: sınıf :: alt; {Nesneyi kullanın :: Insideout QW (benim :: sınıf); # Liste alanı # Standart 'Get_x' ve 'set_x' Accessors # 'in "Bilgi' olarak isteğe bağlı bir liste parametresi olarak -> Yeni () # değeri otomatik olarak @info array # varsayılan olarak için eklendi: Alan: Tip (Liste): Standart (Bilgi): Arg ('Name' => 'Bilgi', 'Varsayılan' => 'Boş'); } paketi foo; {Nesneyi Kullan :: Insideout; # Sınıfım içeren Alan :: Sınıf Nesneleri # Kombine Accessor ile # Plus Object Oluşturma Üzerindeki Otomatik Parametre İşleme @FOO: Alan: Tip (Benim :: Sınıf): Hepsi (Foo); } Paket ana; $ obj = benim :: sınıf :: alt-> yeni ('giriş' => 69); $ bilgim = $ obj-> get_info (); # $ veri = $ obj-> veriler (); # 69 $ obj-> veriler (42); $ veri = $ obj-> veriler (); # 42 $ obj = benim :: Class :: alt-> Yeni ('Info' => 'Yardım', 'giriş' => 86); $ veri = $ obj-> veriler (); # 86 $ info = $ obj-> get_info (); # $ obj-> set_info (QW (Foo Bar Baz)); $ info = $ obj-> get_info (); # $ foo_obj = foo-> New ('foo' => $ obj); $ foo_obj-> foo () -> veri (); # 86Requirements: · Perl Gereksinimler: · Perl

Nesne :: Insideout İlgili Yazılım