Monologue

use Catalyst qw/Authentication::Credential::HatenaAuth/;

MyApp->config->{authentication}{hatenaauth} = {    
    secret   => 'xxxxxxxxx',
    api_key => 'xxxxxxxxxxxxxxxxxxxx',
};

__PACKAGE__->setup;

sub default : Private {
    my ( $self, $c ) = @_;
    $c->authenticate_hatena;
    $c->res->redirect('/') if $c->req->param('cert');

    if( $c->req->cookies->{hatenaauth} ){
    my %data = $c->req->cookies->{hatenaauth}->value;
        $c->stash->{username}       = $data{name};
        $c->stash->{image_url}       = $data{image_url};
        $c->stash->{thumbnail_url} = $data{thumbnail_url};
    }
}

sub login : Local {
        my ( $self, $c ) = @_;

        $c->res->redirect( $c->config->{hatena_api}->uri_to_login );
}

MyApp->config->{authentication}{hatenaauth} = {    
    secret   => 'xxxxxxxxx',
    api_key => 'xxxxxxxxxxxxxxxxxxxx',
};

authentication:
    hatenaauth:
        secret:  xxxxxxxxx
        api_key: xxxxxxxxxxxxxxxxxxxx

sub default : Private {
    my ( $self, $c ) = @_;
    $c->authenticate_hatena; # �����callback URL�˽񤯡�
    $c->res->redirect('/') if $c->req->param('cert'); # 

    if( $c->req->cookies->{hatenaauth} ){
    my %data = $c->req->cookies->{hatenaauth}->value;
        $c->stash->{username}       = $data{name};
        $c->stash->{image_url}       = $data{image_url};
        $c->stash->{thumbnail_url} = $data{thumbnail_url};
    }
}

sub login : Local {
        my ( $self, $c ) = @_;

        $c->res->redirect( $c->config->{hatena_api}->uri_to_login );
}