DBIX :: Klasse :: Service Aggregate dbic-processen tussen meerdere tabellen.
Download nu

DBIX :: Klasse :: Service Rangschikking & Samenvatting

DBIX :: Klasse :: Service Tags

Perl-module perl aggregator aggregaat dbic Dbic

DBIX :: Klasse :: Service Beschrijving

Aggregate dbic-processen tussen meerdere tafels. DBIX :: Klasse :: Service is een Perl-module om dbic-processen te aggregeren tussen meerdere tafels.Synopsiseach Service Klasse Voorbeeld: Pakket MySchema :: Service :: Gebruiker; strikt gebruik; gebruik waarschuwingen; Gebruik basis QW (DBIX :: Klasse :: Service); sub add_user: transactie {mijn ($ klasse, $ schema, $ args) = @_; mijn $ user_rs = $ schema-> resultaat ('gebruiker'); Mijn $ User = $ User_RS-> Maken ({user_seq => undef, user_id => $ args -> {user_id}, wachtwoord_digest => crypt ($ args -> {wachtwoord}, $ args -> {user_id}),} ); $ User-> Create_related ('Profielen', {Name => $ args -> {naam}, bijnaam => $ args -> {bijnaam},}); retourneer $ gebruiker; } Sub authenticeren: datasource {mijn ($ klasse, $ schema, $ user_id, $ wachtwoord) = @_; Retourneer $ SCHEMA-> FUTSET ('User') -> Find ({user__id => $ user_id, wachtwoord_digest => crypt ($ wachtwoord, $ user_id)}); } 1; en uw schemaklasse: Pakket MySchema :: Schema; strikt gebruik; gebruik waarschuwingen; Gebruik BASE 'DBIX :: Klasse :: Schema'; __Package __-> load_classes; __Package __-> Load_componenten (QW / Servicemanager /); __Package __-> Load_Services ({'MySchema :: Service' => }); 1; gebruik: gebruik MySchema :: Schema; Mijn $ Schema = MySchema :: Schema-> Connect ($ DSN, $ DBUSER, $ DBPASS); ### Opmerking: zie argumenten. Gebruik geen $ schema $ schema-> service ('gebruiker') -> add_user ($ args); Vereisten: · Perl

DBIX :: Klasse :: Service Gerelateerde software