| Oggetto :: ISTROOUT. Object :: ISSEROUT è un modulo di supporto per oggetti interne completo. |
Scarica ora |
Oggetto :: ISTROOUT. Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Jerry D. Hedden
- Sito web dell'editore:
- http://search.cpan.org/~jdhedden/
Oggetto :: ISTROOUT. Tag
Oggetto :: ISTROOUT. Descrizione
Oggetto :: ISTEROUT è un modulo di supporto per oggetti interni completo. Object :: ISLUSTOUT è un modulo completo di supporto per oggetto interno ..synopsis Package My :: Class; {Usa oggetto :: ISTEROUT; # Campo numerico # con Get + Compined Accessor Accessor My @Data: campo: Tipo (numerico): Accessori (dati); # Prende 'input' (o 'input', ecc.) Come parametro obbligatorio a -> nuovo () my% init_args: Initargs = ('Input' => {'regex' => qr / ^ Input $ / I, 'Obbligatorio' => 1, 'tipo' => 'numeric',},); # Maniglia ARGS specifica di classe come parte di -> Nuovo () Sub init: init {my ($ sé, $ args) = @_; # Inserire il parametro 'input' in "dati" campo $ self-> set (@data, $ args -> {'input'}); }} Pacchetto My :: class :: sub; {Usa oggetto :: Insideout QW (My :: Class); # Elenco campo # con gli accessori standard 'get_x' e 'set_x' # prende 'info' come parametro elenco opzionale su -> nuovo () # valore aggiunto automaticamente a @info array # predefiniti su my @info: Campo: Tipo (Elenco): Standard (Info): ARG ('Nome' => 'Info', 'Default' => 'vuoto'); } pacchetto foo; {Usa oggetto :: ISTEROUT; # Campo contenente il mio :: oggetti di classe # con accessori combinati # Plus automatico parametri elaborazione su oggetto creazione my @foo: campo: tipo (My :: Class): tutto (foo); } Pacchetto principale; My $BJ = My :: Class :: SUB-> NUOVO ('INPUT' => 69); My $ info = $ obj-> get_info (); # My $ Data = $ obj-> dati (); # 69 $ OBJ-> Dati (42); $ dati = $ obj-> dati (); # 42 $ obj = My :: Class :: Sub-> Nuovo ('Info' => 'Guida', 'Input' => 86); $ dati = $ obj-> dati (); # 86 $ info = $ obj-> get_info (); # $ obj-> set_info (qw (foo bar baz)); $ info = $ obj-> get_info (); # My $ foo_obj = foo-> nuovo ('foo' => $ obj); $ foo_obj-> foo () -> dati (); # 86Ripressioni: · Requisiti perl: · Perl.
Oggetto :: ISTROOUT. Software correlato