DBIX :: Class :: Dynamicsubclass Maneira conveniente de usar a subclassagem dinâmica.
Baixe Agora

DBIX :: Class :: Dynamicsubclass Classificação e resumo

DBIX :: Class :: Dynamicsubclass Tag

Módulo Perl. perl dinâmico Dbix. subclasse dinâmica

DBIX :: Class :: Dynamicsubclass Descrição

Maneira conveniente de usar a subclassagem dinâmica. DBIX :: Classe :: DynamicSubclass é um módulo Perl que oferece uma maneira conveniente de usar o pacote dinâmico de subclasse.synopsis My :: Schema :: Jogo; __Package __-> load_components (QW / Dynamicsubclass Core /); __Package __-> add_column (tipo de dados do nome QW / ID /); __Package __-> TypeCast_Map (Type => {1 => 'My :: Schema :: Game :: Online', 2 => 'My :: Schema :: Game :: Shareware', 3 => 'My :: Schema :: : Jogo :: PDA ',}); $ Game = $ Schema-> ResultSet ('Game') -> Novo ({..., tipo => 1}); # Ref $ Game = 'My :: Schema :: Game :: Online' @Games = $ Jogo-> Pesquisa ({Type => 2}); # @games são todos de classe My :: Schema :: Game :: Shareware $ Game-> Tipo (3); # Jogo é agora de Classe My :: Schema :: Game :: PDA $ Game = $ Schema-> Resultset ('Game') -> Novo ({}); # ou $ jogo-> Tipo (UNDEF); # jogo é agora do tipo Meu :: Schema :: Game #Dynamic Properties com dbix :: Classe :: Frozencolumns pacote My :: Schema :: Jogo; __Package __-> load_components (QW / ... Frozencolumns ... /); pacote meu :: esquema :: jogo :: online; Use a base 'My :: Schema :: Game'; __Package __-> Add_Frozen_Columns (Data => QW / Flash Server_Host Server_port /); pacote meu :: esquema :: jogo :: shareware; Use a base 'My :: Schema :: Game'; __Package __-> Add_Frozen_Columns (Data => QW / Preço Download_Url /); ... $ Jogo-> Tipo (1); #Game teria agora colunas adicionais 'flash', 'server_host', etc. $ jogo-> server_host ('...'); # (armazenado em 'dados') $ jogo-> tipo (2); $ game-> server_host; #Error $ game-> Preço ('$ 3.00'); #ok $ game = $ rs-> novo ({tipo => 1, flash => 'game.swf',}); #ok #mais flexíveis maneira pacote meu :: esquema :: jogo; __Package __-> TypeCast_Column ('Type'); Sub classificar {#Called Cada vez que o objeto obtém ou prejudica seu 'tipo' meu $ auto = mudança; #Decide qual classe você quer abençoe $ auto, $ classe; } Requisitos: · Perl.

DBIX :: Class :: Dynamicsubclass Software Relacionado