Permalink
Browse files

Checkpoint. UGLY. Structure as a series of roles

  • Loading branch information...
1 parent 9ff0023 commit 818fa75178d83d5b631cdb8639c3fb7d95d0ce86 @jhannah committed Mar 26, 2011
@@ -7,41 +7,16 @@ use namespace::clean -except => 'meta';
our $VERSION = "0.01";
-has jay => (
- isa => "Str",
- is => "ro",
- required => 1,
- default => 'boogity',
-);
-
=head1 NAME
-KiokuX::Model::UserAccounts - A generic role for storing user information in L<KiokuDB>
+KiokuX::Model::UserAccounts - Decoupled security roles for L<KiokuDB>
=head1 SYNOPSIS
- package MyFoo::Schema::User;
- use Moose;
-
- use KiokuX::User::Util qw(crypt_password);
-
- with qw(KiokuX::User);
-
- my $user = MyFoo::Schema::User->new(
- id => $user_id,
- password => crypt_password($password),
- );
-
- $user->kiokudb_object_id; # "user:$user_id"
-
- if ( $user->check_password($read_password) ) {
- warn "Login successful";
- } else {
- warn "Login failed";
- }
-
=head1 DESCRIPTION
+L<http://blog.woobling.org/2009/06/users-accounts-identities-and-roles.html>
+
=head1 VERSION CONTROL
L<http://github.com/jhannah/kiokux-model-useraccounts/>
@@ -0,0 +1,9 @@
+package KiokuX::Model::UserAccounts::Account;
+use Moose::Role;
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+
+
@@ -0,0 +1,9 @@
+package KiokuX::Model::UserAccounts::Identity;
+use Moose::Role;
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+
+
@@ -0,0 +1,9 @@
+package KiokuX::Model::UserAccounts::Role;
+use Moose::Role;
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+
+
@@ -0,0 +1,9 @@
+package KiokuX::Model::UserAccounts::User;
+use Moose::Role;
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+
+
View
@@ -1,12 +0,0 @@
-package KiokuX::UserAccounts;
-
-use namespace::clean -except => 'meta';
-
-our $VERSION = "0.01";
-
-use Moose::Role;
-with qw(
- KiokuX::User
-);
-
-

0 comments on commit 818fa75

Please sign in to comment.