DBIX :: Klasse :: Dynamicsubclass Handige manier om dynamische subklassen te gebruiken.
Download nu

DBIX :: Klasse :: Dynamicsubclass Rangschikking & Samenvatting

DBIX :: Klasse :: Dynamicsubclass Tags

Perl-module perl dynamisch DBIx dynamische subclassificatie

DBIX :: Klasse :: Dynamicsubclass Beschrijving

Handige manier om dynamische subclassificatie te gebruiken. DBIX :: Klasse :: Dynamicsubclass is een Perl-module die een handige manier biedt om dynamische subclassering te gebruiken. Synopsis Package My :: Schema :: Game; __Package __-> load_componenten (QW / DYNAMICSUBCLASS CORE /); __Package __-> add_column (QW / ID naamgegevenstype /); __Package __-> Typecast_Map (Type => {1 => 'My :: Schema :: Game :: Online', 2 => 'My :: Schema :: Game :: Shareware', 3 => 'My :: Schema: : Game :: PDA ',}); $ game = $ schema-> resultset ('game') -> Nieuw ({..., type => 1}); # Ref $ Game = 'My :: Schema :: Game :: Online' @Games = $ Game-> Zoeken ({Type => 2}); # @games zijn allemaal van de klas Mijn :: Schema :: Game :: Shareware $ Game-> Type (3); # Game is nu van klasse My :: Schema :: Game :: PDA $ Game = $ schema-> FUTSET ('Game') -> NIEUW ({}); # of $ game-> type (undef); # spel is nu van type My :: Schema :: Game #dynamische eigenschappen met DBIX :: Klasse :: Frozencolumns Pakket Mijn :: Schema :: Game; __Package __-> Load_componenten (QW / ... Frozencolumns ... /); Pakket mijn :: schema :: game :: online; Gebruik basis 'my :: schema :: game'; __Package __-> add_frozen_columns (gegevens => QW / Flash Server_Host Server_port /); Pakket mijn :: schema :: game :: Shareware; Gebruik basis 'my :: schema :: game'; __Package __-> add_frozen_columns (gegevens => qw / prijs download_url /); ... $ GAME-> TYPE (1); #Game zou nu extra kolommen 'flash', 'server_host', etc. $ game-> server_host ('...') hebben; # (opgeslagen in 'gegevens') $ game-> type (2); $ game-> server_host; #Error $ game-> Prijs ('$ 3,00'); #OK $ GAME = $ RS-> NIEUW ({Type => 1, Flash => 'game.swf',}); #Ok #more flexibele manierpakket mijn :: schema :: spel; __Package __-> typecast_column ('type'); Sub classificeren {#called telkens wanneer het object het 'type' mijn $ zelf = verschuiving krijgt of verliest; #decide welke klasse wil je zegenen $ zelf, $ klasse; } Vereisten: · Perl

DBIX :: Klasse :: Dynamicsubclass Gerelateerde software