sample

oauth.pl

sub github_auth {
	my $self = shift;
	my $config = $self->config->{github}->{user};
	# login してない場合
	unless ($self->is_login) {
		# error 処理
		if (my $error = $self->param('error')) {
		    return $self->render(
		    	text => "Call to github returned: $error"
		    );
		# 成功した場合
		} else {
		    $self->delay(
				sub {
					my $delay = shift;
					$self->oauth2->get_token(github => $delay->begin);
				},
				sub {
					# oauth 成功した時はこれが実行される
					my ($delay, $error, $data) = @_;
					return $self->render(error => $error) unless $data->{access_token};

					my $user = github($data->{access_token});
					if ($user->{name} eq $config->{name}
						and $user->{login} eq $config->{login}
						and $user->{created_at} eq $config->{created_at}) {
						$self->session('session_id' => $self->sid);
						$self->redirect_to('/admin');
						return 1;
					}
					$self->redirect_to('/fail');
				},
		    );
		}
	} else {
		$self->redirect_to('/admin');
	}
}