DBIX :: Klasse :: Service

Aggregat-DBIC-Prozesse zwischen mehreren Tischen.
Jetzt downloaden

DBIX :: Klasse :: Service Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Toru Yamaguchi
  • Website des Verlags:
  • http://search.cpan.org/~zigorou/RPM-Util-Files-0.10/lib/RPM/Util/Files.pm

DBIX :: Klasse :: Service Stichworte


DBIX :: Klasse :: Service Beschreibung

Aggregat DBIC-Prozesse zwischen mehreren Tischen. DBIX :: Klasse :: Service ist ein Perl-Modul, um DBIC-Prozesse zwischen mehreren Tabellen zu aggregieren.Synopsiseach-Serviceklasse Verwenden Sie streng; Warnungen verwenden; Verwenden Sie Basis QW (DBIX :: Klasse :: Service); Sub Add_user: Transaktion {My ($ Class, $ SCHEMA, $ args) = @_; mein $ user_rs = $ schema-> resulteset ('user'); Mein $ user = $ user_rs-> erstellen ({user_seq => undef, user_id => $ args -> {user_id}, password_digest => crypt ($ args -> {password}, $ args -> {user_id}),} ); $ user-> create_rele ('Profile', {Name => $ args -> {Name}, NickName => $ args -> {spitzname},}); Geben Sie $ Benutzer zurück; } Sub Authenticate: DataSource {My ($ Class, $ SCHEMA, $ User_ID, $ Passwort) = @_; Senden Sie $ SCHEMA-> RESUTSET ('User') -> Suchen ({user_id => $ user_id, passal_digest => crypt ($ passward, $ user_id)}); } 1; und Ihre Schemaklasse: Paket Myschema :: Schema; Verwenden Sie streng; Warnungen verwenden; Verwenden Sie Basis 'DBIX :: Klasse :: Schema'; __Package __-> load_classes; __Package __-> load_components (QW / serviceManager /); __Package __-> load_services ({'MySchema :: Service' => }); 1; Verwendung: Verwenden Sie MySchema :: Schema; Mein $ -Schema = MySchema :: Schema-> Connect ($ DSN, $ dbuser, $ dbass); ### Hinweis: Bitte sehen Sie Argumente. Benötigen Sie nicht $ SCHEMA $ SCHEMA-> Service ('Benutzer') -> add_user ($ args); Anforderungen: · Perl.


DBIX :: Klasse :: Service Zugehörige Software

Über uns