/usr/local/CPAN/Kwiki-LivedoorAuth/Kwiki/Users/LivedoorAuth.pm

• package Kwiki::Users::LivedoorAuth
  • init
  • current
  • new_user
• package Kwiki::User::LivedoorAuth
  • set_user_name
• package Kwiki::Users::LivedoorAuth
• __DATA__
• EOF

package Kwiki::Users::LivedoorAuth;
use strict;

our $VERSION = 0.01;
use Kwiki::Users '-Base';

const class_id    => "users";
const class_title => "Kwiki users from LivedoorAuth authentication";
const user_class  => "Kwiki::User::LivedoorAuth";

sub init {
    return unless $self->is_in_cgi;
    io($self->plugin_directory)->mkdir;
}

sub current {
    return $self->{current} = shift if @_;
    return $self->{current} if defined $self->{current};
    $self->{current} = $self->new_user();
}

sub new_user {
    $self->user_class->new();
}

package Kwiki::User::LivedoorAuth;
use base qw(Kwiki::User);

field 'name';
field 'image_url';
field 'thumbnail_url';

sub set_user_name {
    return unless $self->is_in_cgi;
    my $cookie = $self->hub->cookie->jar->{livedoorauth};
    $cookie && $cookie->{name} or return;
    for my $key (qw(name image_url thumbnail_url)) {
        $self->$key($cookie->{$key} || '');
    }
}

package Kwiki::Users::LivedoorAuth;
1;

__DATA__