1 | package Facebook::Graph::Session; |
---|
2 | BEGIN { |
---|
3 | $Facebook::Graph::Session::VERSION = '1.0300'; |
---|
4 | } |
---|
5 | |
---|
6 | use Any::Moose; |
---|
7 | use Facebook::Graph::Response; |
---|
8 | with 'Facebook::Graph::Role::Uri'; |
---|
9 | use AnyEvent::HTTP; |
---|
10 | |
---|
11 | has app_id => ( |
---|
12 | is => 'ro', |
---|
13 | required=> 1, |
---|
14 | ); |
---|
15 | |
---|
16 | has secret => ( |
---|
17 | is => 'ro', |
---|
18 | required=> 1, |
---|
19 | ); |
---|
20 | |
---|
21 | has sessions => ( |
---|
22 | is => 'ro', |
---|
23 | required=> 1, |
---|
24 | ); |
---|
25 | |
---|
26 | sub uri_as_string { |
---|
27 | my ($self) = @_; |
---|
28 | my $uri = $self->uri; |
---|
29 | $uri->path('oauth/access_token'); |
---|
30 | $uri->query_form( |
---|
31 | type => 'client_cred', |
---|
32 | client_id => $self->app_id, |
---|
33 | client_secret => $self->secret, |
---|
34 | sessions => join(',', @{$self->sessions}) |
---|
35 | ); |
---|
36 | return $uri->as_string; |
---|
37 | } |
---|
38 | |
---|
39 | sub request { |
---|
40 | my ($self, $cb) = @_; |
---|
41 | http_get $self->uri_as_string, sub { |
---|
42 | my ($response, $headers) = @_; |
---|
43 | $cb->(Facebook::Graph::Response->new( |
---|
44 | response => $response, |
---|
45 | headers => $headers, |
---|
46 | uri => $self->uri_as_string |
---|
47 | )); |
---|
48 | }; |
---|
49 | } |
---|
50 | |
---|
51 | no Any::Moose; |
---|
52 | __PACKAGE__->meta->make_immutable; |
---|
53 | |
---|
54 | |
---|
55 | =head1 NAME |
---|
56 | |
---|
57 | Facebook::Graph::Session - Convert old API sessions into Graph API access_tokens. |
---|
58 | |
---|
59 | |
---|
60 | =head1 VERSION |
---|
61 | |
---|
62 | version 1.0300 |
---|
63 | |
---|
64 | =head1 SYNOPSIS |
---|
65 | |
---|
66 | my $fb = Facebook::Graph->new( |
---|
67 | secret => $facebook_application_secret, |
---|
68 | app_id => $facebook_application_id, |
---|
69 | postback => 'https://www.yourapplication.com/facebook/postback', |
---|
70 | ); |
---|
71 | my $tokens = $fb->session(\@session_ids)->request->as_hashref; |
---|
72 | |
---|
73 | =head1 DESCRIPTION |
---|
74 | |
---|
75 | Allows you to request convert your old sessions into access tokens. |
---|
76 | |
---|
77 | B<NOTE:> If you're writing your application from scratch using L<Facebook::Graph> then you'll never need this module. |
---|
78 | |
---|
79 | =head1 METHODS |
---|
80 | |
---|
81 | =head2 uri_as_string () |
---|
82 | |
---|
83 | Returns the URI that will be called to fetch the token as a string. Mostly useful for debugging and testing. |
---|
84 | |
---|
85 | =head2 request () |
---|
86 | |
---|
87 | Makes a request to Facebook to fetch an access token. Returns a L<Facebook::Graph::Response> object. Example JSON response: |
---|
88 | |
---|
89 | =head1 LEGAL |
---|
90 | |
---|
91 | Facebook::Graph is Copyright 2010 Plain Black Corporation (L<http://www.plainblack.com>) and is licensed under the same terms as Perl itself. |
---|
92 | |
---|
93 | =cut |
---|