The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WebService::Livedoor::Auth - [One line description of module's purpose here]

SYNOPSIS

    use WebService::Livedoor::Auth;
    
    my $auth = WebService::Livedoor::Auth->new({
        app_key => '...',
        secret => '...',
    });
    my $uri = $auth->uri_to_login({userdata => '...'});


    use CGI;
    use WebService::Livedoor::Auth;
    
    my $q = CGI->new;
    my $auth = WebService::Livedoor::Auth->new({
        app_key => '...',
        secret => '...',
    });
    my $user = $auth->validate_response($q);
    if($user) {
        my $livedoor_id = $auth->get_livedoor_id($user);
    }
    

DESCRIPTION

AUTHOR

Tomohiro IKEBE <ikebe@shebang.jp>

LICENCE AND COPYRIGHT

Copyright (c) 2006, Tomohiro IKEBE <ikebe@shebang.jp>. All rights reserved.

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