| Dbix :: SearchBuilder :: Grabar DBIX :: SearchBuilder :: Record es una superclase Perl para los registros cargados por SearchBuilder. |
Descargar ahora |
Dbix :: SearchBuilder :: Grabar Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Jesse Vincent
- Sitio web del editor:
- http://search.cpan.org/~jesse/
Dbix :: SearchBuilder :: Grabar Etiquetas
Dbix :: SearchBuilder :: Grabar Descripción
Dbix :: SearchBuilder :: Record es una superclase Perl para los registros cargados por SearchBuilder. Dbix :: SearchBuilder :: Record es una superclase Perl para los registros cargados por SearchBuilder.Synopsis Paquete MyRecord; Use Base QW / DBIX :: SearchBuilder :: Grabar /; Sub _init {My $ Self = Shift; My $ dbixhandle = Shift; # A dbix :: SearchBuilder :: Manija :: Foo OBJETE para su base de datos $ Self -> _ Manija ($ dbixhandle); $ Self-> Tabla ("Usuarios"); } # Diga al registro, cuáles son las teclas primarias Sub _PrimaryKeys {retorn ; } # Manera preferente y más eficiente de especificar atributos de campos en una clase # derivada, utilizada por el autocargador para construir métodos ATTRIB y SetAtTrib. # LEER: Llamar $ Object-> Foo devolverá el valor de la columna FOO # escriba: Llamar $ objeto-> SetFoo con un solo valor establecerá el valor de FOO en # tanto el objeto cargado como la base de datos sub _clasaccessable {{tofu = > {'lectura' => 1, 'escribe' => 1}, maz => {'auto' => 1,}, roo => {'lee' => 1, 'AUTO' => 1, 'Public '=> 1,},}; } # Una subrutina para verificar la contraseña de un usuario sin devolver el valor actual de los números para fines de seguridad, no exponemos el método de contraseña por encima del subspassword {My $ Self = Shift; My $ try = Shift; # Note dos __s en __VALUE. Las subclases pueden emprender con _value, pero # nunca deben tocar __valor si ($ intente EQ $ Auto -> __ Valor ('Contraseña')) {return (1); } else {return (UNDEF); }} # Anular DBIX :: SearchBuilder :: Crear para ver algunos registros en Crear Sub Crear {My $ Self = Shift; My% Fields = (UserID => Undef, Contraseña => 'Predeterminado', # configure una contraseña predeterminada @_); # Asegúrese de que un ID de usuario esté especificado a menos que ($ Campos {'UserID'}) {Die "no haya especificado UserID". } # Obtenga dbix :: SearchBuilder :: Graber-> Crear para hacer la devolución de trabajo real ($ Self-> Super :: Crear (UserID => $ Fields {'userid'}, contraseña => $ Campos {'contraseña'} , Creado => tiempo)); } Requisitos: · Perl
Dbix :: SearchBuilder :: Grabar Software relacionado