NAME WWW::PunchTab - PunchTab REST API VERSION version 0.02 SYNOPSIS use WWW::PunchTab; use Data::Dumper; my $pt = WWW::PunchTab->new( domain => 'fayland.org', access_key => 'f4f8290698320a98b1044615e722af79', client_id => '1104891876', secret_key => 'ed73f70966dd10b7788b8f7953ec1d07', ); $pt->sso_auth( {'id' => '2', 'first_name' => 'Fayland', 'last_name' => 'Lam', 'email' => 'fayland@gmail.com'} ) or die $pt->errstr; my $x = $pt->create_activity('view', 200) or die $pt->errstr; # view with 200 points print Dumper(\$x); DESCRIPTION METHODS CONSTRUCTION my $pt = WWW::PunchTab->new( domain => 'fayland.org', access_key => 'f4f8290698320a98b1044615e722af79', client_id => '1104891876', secret_key => 'ed73f70966dd10b7788b8f7953ec1d07', ); * domain * access_key * client_id * secret_key All required. sso_auth $pt->sso_auth( {'id' => '2', 'first_name' => 'Fayland', 'last_name' => 'Lam', 'email' => 'fayland@gmail.com'} ) or die $pt->errstr; sso_auth_js print $pt->sso_auth_js({'id' => '2', 'first_name' => 'Fayland', 'last_name' => 'Lam', 'email' => 'fayland@gmail.com'}); js sso auth example: var _pt_pre_config = { auth_request: 'xxx', signature: 'xxx', timestamp: 1348843966, client_id: 123 }; auth_logout my $status = $pt->auth_logout or die $pt->errstr; auth_status return 'connected' or 'disconnected' my $status = $pt->auth_status($access_token) or die $pt->errstr; activity my $activity = $pt->activity() or die $pt->errstr; my $activity = $pt->activity('like') or die $pt->errstr; create_activity my $x = $pt->create_activity('view', 200) or die $pt->errstr; # view with 200 points redeem_reward my $x = $pt->redeem_reward($reward_id) or die $pt->errstr; leaderboard my $leaderboard = $pt->leaderboard() or die $pt->errstr; my $leaderboard = $pt->leaderboard( with => 'me', limit => 20, page => 1, ) or die $pt->errstr; reward my $reward = $pt->reward() or die $pt->errstr; my $reward = $pt->reward($limit) or die $pt->errstr; user my $user = $pt->user() or die $pt->errstr; AUTHOR Fayland Lam COPYRIGHT AND LICENSE This software is copyright (c) 2012 by Fayland Lam. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.