Classe :: DBI :: Doce Classe :: DBI :: Sweet é um módulo Perl que fornece funções convenientes de contagem, pesquisa, página e cache em um pacote doce.
Baixe Agora

Classe :: DBI :: Doce Classificação e resumo

Classe :: DBI :: Doce Tag

procurar função de pesquisa. cache contar função de cache Função de contagem

Classe :: DBI :: Doce Descrição

Classe :: DBI :: Sweet é um módulo Perl que fornece uma contagem conveniente, pesquisa, página e funções de cache em um pacote doce. Classe :: DBI :: Sweet é um módulo Perl que fornece uma contagem conveniente, pesquisa, página e funções de cache em um pacote doce. Integra essas funções com a classe :: DBI de uma forma conveniente e eficiente. O pacote MyApp :: DBI; Use a classe 'Classe :: DBI :: Sweet'; Myapp :: dbi-> conexão ('DBI: driver: dbname', 'nome de usuário', 'senha'); pacote myapp :: artigo; Use a base 'myapp :: dbi'; Use o DateTime; __Package __-> Tabela ('Artigo'); __Package __-> Colunas (primário => qw ); __Package __-> Colunas (essencial => qw ); __Package __-> HAS_A (Creat_on => 'DateTime', Infla => Sub {DateTime-> From_epoch (EPOCH => Shift)}, deflate => sub {shift-> EPOCH}); # Simples Search MyApp :: Article-> Pesquisa (Created_by => 'Sri', {Order_By => 'Título'}); MyApp :: Article-> Contagem (criado_by => 'sri'); MyApp :: Article-> Página (Created_By => 'Sri', {Página => 5}); MyApp :: Article-> retieve_all (Order_by => 'Created_on'); # Pesquisa mais poderosa com deflating $ critérios = {Created_on => {-bebstime => }, criado_by => , title => {-like => }}}; MyApp :: Article-> Pesquisa ($ critérios, {linhas => 30}); MyApp :: Article-> Contagem (Critérios de $); MyApp :: Article-> Página ($ critérios, {linhas => 10, página => 2}); MyApp :: Article-> Retieve_Next ($ critérios, {Order_by => 'Created_on'}); MyApp :: Article-> Retieve_Previous ($ critérios, {Order_by => 'Created_on'}); MyApp :: Article-> Default_search_attributes ({Order_By => 'Created_on'}); # Automatic Junta para pesquisa e contagem myapp :: cd-> has_many (faixas => 'myapp :: track'); Myapp :: cd-> has_many (tags => 'myapp :: tag'); Myapp :: cd-> has_a (artista => 'myapp :: artista'); MyApp :: CD-> Might_Have (Liner_Notes => 'MyApp :: lineernotes' => QW / Notes /); MyApp :: Artist-> Pesquisa ({'cds.year' => $ cd}, # $ cd-> ano subtuído {orden_by => 'artistid desc'}); meu ($ tag) = $ cd-> tags; # Grab Primeira Tag Off CD Meus ($ Next) = $ CD-> Retiew_Next ({'tags.tag' => $ tag}, {order_by => 'título'}); Myapp :: cd-> Pesquisa ({'liner_notes.notes' => {"! =" => Undef}}); Myapp :: cd-> Contagem ({'ano' => {'>', 1998}, 'tags.tag' => 'brega', 'liner_notes.notes' => {'buy' = 'buy%' }}); # Multi-passo junta MyApp :: Artist-> Pesquisa ({'cds.tags.tag' => 'Shiny'}); # Recuperação com pré-carregamento Meu ($ CD) = myapp :: cd-> Pesquisar ({...}, {prefetic => }); $ cd-> artista # pré-carregado # cache de resultados (* experimental *) __package __-> default_search_attributes ({use_resultset_cache =>> 1}); Requisitos: · Perl.

Classe :: DBI :: Doce Software Relacionado