DBIX :: SearchBuilder :: Record DBIX :: SearchBuilder :: Record is een Perl-superclass voor records geladen door SearchBuilder.
Download nu

DBIX :: SearchBuilder :: Record Rangschikking & Samenvatting

DBIX :: SearchBuilder :: Record Tags

database Perl-module Dbi database records SearchBuilder verslagen SearchBuilder

DBIX :: SearchBuilder :: Record Beschrijving

DBIX :: Searchbuilder :: Record is een Perl-superclass voor records geladen door SearchBuilder. DBIX :: SearchBuilder :: Record is een Perl-superclass voor records geladen door SearchBuilder.Synopsis Pakket Myrecord; Gebruik basis QW / DBIX :: SearchBuilder :: Record /; sub _init {mijn $ self = shift; mijn $ dbixhandle = shift; # A DBIX :: SearchBuilder :: handvat :: foo object voor uw database $ self -> _ handvat ($ dbixhandle); $ self-> tafel ("gebruikers"); } # Vertel dit wat de primaire toetsen sub _primaryKeys {return ; } # Geprefeerde en meest efficiënte manier om veldenattributen in een afgeleide # klasse te specificeren, gebruikt door de autoloader om attrib- en setattrib-methoden te bouwen. # Lees: CALLING $ Object-> FOO retourneert de waarde van de foo kolom # van deze record # schrijven: CALLING $ Object-> SETFOO met een enkele waarde zal de waarde van FOO instellen in # zowel het geladen object en de database-sub _classaccessible {{tofu = > {'Lees' => 1, 'Schrijf' => 1}, MAZ => {'Auto' => 1,}, roo => {'lees' => 1, 'Auto' => 1, 'Public '=> 1,},}; } # Een subroutine om het wachtwoord van een gebruiker te controleren zonder de huidige waarde # voor beveiligingsdoeleinden te retourneren, stegen we niet de wachtwoordmethode boven Sub isPassword {My $ Self = Shift; mijn $ poging = verschuiving; # Let op twee __s in __value. Subclasses May Muck met _value, maar # ze mogen nooit aanraken __value if ($ probeer eq $ self -> __ waarde ('wachtwoord')) {return (1); } anders {return (undef); }} # Overschrijvend DBIX :: SearchBuilder :: Creëer om wat controle te maken op Create Sub Create {My $ Self = Shift; Mijn% velden = (UserID => undef, wachtwoord => 'standaard', #Set een standaardwachtwoord @_); # Zorg ervoor dat een userid is opgegeven, tenzij ($ velden {'userid'}) {DUIT "GEEN UserID opgegeven."; } # KRIJG DBIX :: SearchBuilder :: Record-> Maken om het echte werk te doen Return ($ self-> super :: Create (Userid => $ Fields {'Userid'}, Wachtwoord => $ Velden {'Wachtwoord'} , Gemaakt => tijd)); } Vereisten: · Perl

DBIX :: SearchBuilder :: Record Gerelateerde software