| DBIX :: Searchbuilder :: Record DBIX :: Searchbuilder :: Record è una superclass perl per i record caricati da SearchBuilder. |
Scarica ora |
DBIX :: Searchbuilder :: Record Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Jesse Vincent
- Sito web dell'editore:
- http://search.cpan.org/~jesse/
DBIX :: Searchbuilder :: Record Tag
DBIX :: Searchbuilder :: Record Descrizione
DBIX :: Searchbuilder :: Record è una perl superclass per i record caricati da SearchBuilder. DBix :: Searchbuilder :: Record è una perl superclass per i record caricati da Searchbuilder.Synopsis Package MyRecord; Usa Base QW / DBIX :: Searchbuilder :: Record /; sub _init {my $ self = shift; My $ DBIXHandle = Shift; # A DBIX :: Searchbuilder :: Maniglia :: Oggetto Foo per il tuo database $ Self-> _ Maniglia ($ DBIXHandle); $ self-> tabella ("utenti"); } # Dichiara a registrare ciò che le chiavi primarie sono sub _primarykeys {return ; } # # MODO PREFERITO E MIGLIORE EFFICIENTE Per specificare gli attributi di campi in una classe # derivata, utilizzata dal caricatore automatico per costruire attribuire i metodi attribuiti e setattrib. # Leggi: chiamare $ Object-> Foo restituirà il valore della colonna FOO di questo record # Scrivi: chiamare $ Object-> SetFoo con un singolo valore imposterà il valore di FOO in # sia l'oggetto caricato che il database sub _classaccessible {{tofu = > {'Leggi' => 1, 'scrivi' => 1}, maz => {'auto' => 1,}, roo => {'Leggi' => 1, 'Auto' => 1, 'Pubblico '=> 1,},}; } # Una subroutine per controllare la password di un utente senza restituire il valore corrente # per scopi di sicurezza, non abbiamo esposto il metodo password sopra Sub Ispassword {My $ Self = Shift; My $ Try = Shift; # Nota due __s in __value. Le sottoclassi possono muck con _Value, ma # non dovrebbero mai toccare __Value se ($ Try EQ $ Self-> __ valore ('password')) {return (1); } else {return (Undef); }} # Override DBIX :: Searchbuilder :: Creazione per eseguire alcuni controllo su Crea Sub Create {My $ Self = Shift; My% fields = (userid => Undef, password => 'Default', #Set Una password predefinita @_); # Assicurati che un userid sia specificato a meno che ($ campi {'userid'}) {Die "nessun utente specificato."; } # Ottieni DBix :: Searchbuilder :: RecordBuilder :: Record-> Crea per eseguire il rendimento del lavoro reale ($ self-> super :: crea (userid => $ campi {'userid'}, password => $ campi {'password'} , Creato => tempo)); } Requisiti: · Perl.
DBIX :: Searchbuilder :: Record Software correlato