DBIX :: Klasse :: Dynamicsubclass Bequeme Möglichkeit, dynamische Unterklassen zu verwenden.
Jetzt downloaden

DBIX :: Klasse :: Dynamicsubclass Ranking & Zusammenfassung

DBIX :: Klasse :: Dynamicsubclass Stichworte

Perl-Modul Perl dynamisch Dbix. dynamische Unterklasse

DBIX :: Klasse :: Dynamicsubclass Beschreibung

Bequeme Möglichkeit, dynamische Unterklassen zu verwenden. DBIX :: Klasse :: dynamicsubclass ist ein Perl-Modul, das eine bequeme Möglichkeit bietet, dynamisches Subclassing.Synopsis-Paket MY :: SCHEMA :: Game; __Package __-> load_components (QW / Dynamicsubclass Core /); __Package __-> add_column (QW / ID-Datenname Datentyp /); __Package __-> typecast_map (Typ => {1 => 'my :: schema :: spiel :: online', 2 => 'My :: Schema :: Spiel :: Shareware', 3 => 'My :: Schema: : Spiel :: pda ',}; $ spiel = $ schema-> resultset ('spiel') -> neu ({..., typ => 1}); # REF $ spiel = 'my :: schema :: spiel :: online' @games = $ game-> suche ({type => 2}); # @games sind alle Klassen My :: Schema :: Game :: Shareware $ Game-> Typ (3); # Spiel ist jetzt von Class My :: SCHEMA :: Game :: PDA $ Game = $ SCHEMA-> RESUTSET ('Game') -> NEU ({}); # oder $ spiel-> typ (undef); # Spiel ist jetzt von Typ My :: SCHEMA :: Game #Dynamic Immobilien mit DBIX :: Klasse :: Friedcolumns-Paket My :: Schema :: Spiel; __Package __-> load_components (QW / ... FRozencolumns ... /); Paket My :: SCHEMA :: Game :: online; Verwenden Sie Basis 'My :: Schema :: Spiel'; __Package __-> add_frozen_columns (data => qw / flash server_host server_port /); Paket My :: Schema :: Game :: Shareware; Verwenden Sie Basis 'My :: Schema :: Spiel'; __Package __-> add_frozen_columns (data => qw / preis download_url /); ... $ spiel-> typ (1); #game hätte jetzt zusätzliche Spalten 'Flash', 'server_host' usw. $ game-> server_host ('...'); # (in 'Data' gespeichert) $ spiel-> typ (2); $ game-> server_host; #Error $ game-> preis ('$ 3.00'); #ok $ spiel = $ rs-> neu ({type => 1, flash => 'game.swf',}); #ok #mehr Flexible Way Package My :: Schema :: Spiel; __Package __-> typecast_column ('type'); Subs-Klassifizieren Sie jedes Mal, wenn das Objekt den "Typ" -Typen "My $ Self = Shift erhält oder verliert. #decide, welche Klasse willst du segnen, selgen, $ Class; } Anforderungen: · Perl.

DBIX :: Klasse :: Dynamicsubclass Zugehörige Software