DBIX :: Class :: Serviço

Processos DBIC agregados entre várias tabelas.
Baixe Agora

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

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Toru Yamaguchi
  • Site do editor:
  • http://search.cpan.org/~zigorou/RPM-Util-Files-0.10/lib/RPM/Util/Files.pm

DBIX :: Class :: Serviço Tag


DBIX :: Class :: Serviço Descrição

Processos DBIC Agregados entre várias tabelas. DBIX :: Class :: Serviço é um módulo Perl para agregar processos DBIC entre várias tabelas.Synopsisach Service Classe Exemplo: Pacote MySchema :: Serviço :: Usuário; Use rigoroso; use avisos; Use Base QW (DBIX :: Class :: Serviço); SubD_user: Transaction {My ($ Class, $ Schema, $ ARGS) = @_; meu $ user_rs = $ esquema-> ResultSet ('user'); Meu usuário $ User = $ USER_RS-> CREATE ({user_seq => undef, user_id => $ args -> {user_id}, senha_digest => crypt ($ args -> {senha}, $ args -> {user_id}),} ); $ user-> Create_Related ('perfis', {nome => $ args -> {name}, apelido => $ args -> {apelido},}); retornar usuário $; } Sub autenticar: DataSource {My ($ Class, $ Schema, $ user_id, $ Senha) = @_; Retornar $ Schema-> Resultset ('Usuário') -> Localizar ({user_id => $ user_id, password_digest => crypt ($ senha, $ user_id)}); } 1; e sua classe de esquema: Pacote Myschema :: Schema; Use rigoroso; use avisos; Use a base 'DBIX :: Class :: Schema'; __Package __-> load_classes; __Package __-> load_components (QW / ServiceManager /); __Package __-> load_services ({'myschema :: service' => }); 1; Usando: Use Myschema :: Schema; Meu $ Schema = Myschema :: Schema-> Conectar ($ DSN, $ dbuser, $ DBPass); ### Nota: Por favor, veja argumentos. Não precisa de $ Schema $ Schema-> Serviço ('Usuário') -> Add_User ($ args); Requisitos: · Perl.


DBIX :: Class :: Serviço Software Relacionado

Sobre nós