Prty::ClassConfig - Definiere Information auf Klassenebene
Klasse einbinden:
use base qw/... Prty::ClassConfig/;
Information definieren (Anwendungsbeispiel):
package Model::Object; __PACKAGE__->def( table=>'Object', prefix=>'Obj', columns=>[ id=>{ domain=>'integer', primaryKey=>1, notNull=>1, description=>'Primärschlüssel', }, ... ], ... );
Information abfragen:
my $table = Model::Object->defGet('table'); => Object
Die Klasse ermöglicht, Information in Klassen zu hinterlegen und abzufragen. Anstatt hierfür Klassenvariablen mit our zu definieren, verwaltet die Klasse sämliche Information zu einer Klasse in einem einzigen Hash. Die Methoden der Klasse verwalten (erzeugen, lesen) diesen Hash.
our
$class->def(@keyVal);
Hinterlege die Information @keyVal in der Klasse $class.
Liste von Schlüssel/Wert-Paaren. Der Schlüssel ist eine Zeichenkette, der Wert ein beliebiger Skalar (Zeichenkette oder Array- oder Hash- Referenz etc.)
nichts
@vals = $this->defGet(@keys); $val = $this->defGet($key);
Liefere die Werte zu den Schlüsseln @keys. Im Skalarkontext liefere den Wert des ersten Schlüssels.
$val = $class->defSearch($key);
Suche "von unten nach oben" in der Vererbungshierarchie, beginnend mit Klasse $class, die Information $key. Die erste Klasse, die die Informatinon besitzt, liefert den Wert.
1.097
Frank Seitz, http://fseitz.de/
Copyright (C) 2016 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Prty, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Prty
CPAN shell
perl -MCPAN -e shell install Prty
For more information on module installation, please visit the detailed CPAN module installation guide.