Toru Yamaguchi > DBIx-Class-Service-0.02 > DBIx::Class::Service

Download:
DBIx-Class-Service-0.02.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.02   Source  

NAME ^

DBIx::Class::Service - Aggregate DBIC processes between multiple tables.

VERSION ^

version 0.02

SYNOPSIS ^

Each service class example:

  package MySchema::Service::User;
  
  use strict;
  use warnings;
  
  use base qw(DBIx::Class::Service);
  
  sub add_user: Transaction {
    my ($class, $schema, $args) = @_;
    
    my $user_rs = $schema->resultset('User');
    
    my $user = $user_rs->create({
      user_seq => undef,
      user_id => $args->{user_id},
      password_digest => crypt($args->{password}, $args->{user_id}),
    });
    
    $user->create_related('profiles', {
      name => $args->{name},
      nickname => $args->{nickname},
    });
    
    return $user;
  }
  
  sub authenticate: DataSource {
    my ($class, $schema, $user_id, $password) = @_;
    return $schema->resultset('User')->find({ user_id => $user_id, password_digest => crypt($password, $user_id) });
  }
  
  1;

And your schema class:

  package MySchema::Schema;
  
  use strict;
  use warnings;
  
  use base 'DBIx::Class::Schema';
  
  __PACKAGE__->load_classes;
  __PACKAGE__->load_components(qw/ServiceManager/);
  __PACKAGE__->load_services({ 'MySchema::Service' => [qw/
    User
  /] });
  
  1;

Using:

  use MySchema::Schema;

  my $schema = MySchema::Schema->connect($dsn, $dbuser, $dbpass);
  ### note: please see arguments. do not need $schema
  $schema->service('User')->add_user($args);

METHODS ^

load_service_methods()

Load code attributes and return a pair of attribute and method name as hashref.

SEE ALSO ^

DBIx::Class::ServiceManager
DBIx::Class::ServiceProxy

AUTHOR ^

Toru Yamaguchi, <zigorou@cpan.org>

BUGS ^

Please report any bugs or feature requests to bug-dbix-class-service@rt.cpan.org, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

COPYRIGHT & LICENSE ^

Copyright 2008 Toru Yamaguchi, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: