view release on metacpan or  search on metacpan

lib/Business/PayPal/Permissions.pm  view on Meta::CPAN

    };

    my $sorted_query_string = to_paypal_permissions_query($params);

    my $base = join( '&',
        ( "POST", paypal_encode($url), paypal_encode($sorted_query_string) ) );
    $base =~ s/%([0-9A-F])([0-9A-F])/%\L$1\L$2/g;
    my $digest = hmac_sha1( $base, $key );
    $digest = encode_base64($digest);
    chomp($digest);
    return $digest;
}

1;

__END__

=pod

=head1 NAME

Business::PayPal::Permissions - PayPal Permissions

=head1 VERSION

version 0.02

=head1 SYNOPSIS

    use Business::PayPal::Permissions;
    use Data::Dumper;

    my $ppp = Business::PayPal::Permissions->new(
        username => $cfg{username}, password => $cfg{password},
        signature => $cfg{signature}, sandbox => 1,
    );

=head1 DESCRIPTION

PayPal Permissions L<https://www.x.com/developers/paypal/documentation-tools/permissions/permissions-service>

=head2 METHODS

=head3 CONSTRUCTION

    my $ppp = Business::PayPal::Permissions->new(
        username => $cfg{username}, password => $cfg{password},
        signature => $cfg{signature},
        app_id  => 'APP-80W284485P519543T',
        sandbox => 1,
    );

=over 4

=item * username

=item * password

=item * signature

credentials from paypal.com

=item * app_id

app id from x.com, use 'APP-80W284485P519543T' for sandbox

=item * debug

=item * sandbox

using sandbox urls

=item * ua_args

passed to LWP::UserAgent

=item * ua

L<LWP::UserAgent> or L<WWW::Mechanize> instance

=back

=head3 RequestPermissions($scope, $callback)

    my $data = $ppp->RequestPermissions(
        ['TRANSACTION_SEARCH', 'TRANSACTION_DETAILS', 'ACCESS_BASIC_PERSONAL_DATA'],
        'http://localhost:5000/cgi-bin/test.pl'
    );

    print redirect($data->{redirect_url}) if exists $data->{redirect_url};
    die $data->{error}->[0]->{message} . "\n" if exists $data->{error};

=head3 GetAccessToken($request_token, $verification_code)

    my $data = $ppp->GetAccessToken( param('request_token'), param('verification_code') );
    die $data->{error}->[0]->{message} . "\n" if exists $data->{error};

    my $token = $data->{token};
    my $tokenSecret = $data->{tokenSecret};

=head3 GetBasicPersonalData

    my $user = $ppp->GetBasicPersonalData(['http://axschema.org/contact/email', 'http://schema.openid.net/contact/fullname', 'https://www.paypal.com/webapps/auth/schema/payerID', 'http://axschema.org/namePerson/first', 'http://axschema.org/namePerson...

=head1 AUTHORS

=over 4

=item *

Fayland Lam <fayland@gmail.com>

=item *

Mc Cheung

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Fayland Lam.