Amon2-Auth

 view release on metacpan or  search on metacpan

lib/Amon2/Auth.pm  view on Meta::CPAN

package Amon2::Auth;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.07';

1;
__END__

=encoding utf8

=head1 NAME

Amon2::Auth - Authentication module for Amon2

=head1 DESCRIPTION

Amon2::Auth is authentication modules for Amon2.

Please read L<Amon2::Plugin::Web::Auth> for more details.

lib/Amon2/Auth/Site/Facebook.pm  view on Meta::CPAN

use strict;
use warnings;
use utf8;

package Amon2::Auth::Site::Facebook;
use Mouse;
use LWP::UserAgent;
use URI;
use JSON;
use Amon2::Auth;

sub moniker { 'facebook' }

lib/Amon2/Auth/Site/Github.pm  view on Meta::CPAN

use strict;
use warnings;
use utf8;

package Amon2::Auth::Site::Github;
use Mouse;

use Amon2::Auth;
use LWP::UserAgent;
use JSON;
use Amon2::Auth::Util qw(parse_content);
our $VERSION = '0.07';

lib/Amon2/Auth/Site/Twitter.pm  view on Meta::CPAN

use strict;
use warnings;
use utf8;

package Amon2::Auth::Site::Twitter;
use Mouse;
use Net::Twitter::Lite::WithAPIv1_1;

sub moniker { 'twitter' }

has consumer_key => (
	is => 'ro',
	isa => 'Str',

lib/Amon2/Auth/Util.pm  view on Meta::CPAN

use strict;
use warnings;
use utf8;

package Amon2::Auth::Util;
use parent qw(Exporter);

our @EXPORT_OK = qw(parse_content);

# taken from OAuth::Lite2::Util
use Hash::MultiValue;
use URI::Escape qw(uri_unescape);
sub parse_content {

lib/Amon2/Plugin/Web/Auth.pm  view on Meta::CPAN

            });
        } else {
            return undef; # DECLINED
        }
    });
}

1;
__END__

=encoding utf8

=for stopwords auth

=head1 NAME

Amon2::Plugin::Web::Auth - auth with SNS

=head1 SYNOPSIS

    package MyApp::Web;