unobe / perl-wfa

Perl's WWW::Facebook::API Module

This URL has Read+Write access

perl-wfa / README
100644 847 lines (663 sloc) 33.321 kb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
NAME
    WWW::Facebook::API - Facebook API implementation
 
VERSION
    This document and others distributed with this module describe
    WWW::Facebook::API version 0.4.15
 
SYNOPSIS
        use WWW::Facebook::API;
 
        # @ENV{qw/WFA_API_KEY WFA_SECRET WFA_DESKTOP/} are the initial values,
        # so use those if you only have one app and don't want to pass in values
        # to constructor
        my $client = WWW::Facebook::API->new(
            desktop => 0,
            api_key => 'your api key',
            secret => 'your secret key',
        );
        
    # Change API key and secret
        print "Enter your public API key: ";
        chomp( my $val = <STDIN> );
        $client->api_key($val);
        print "Enter your API secret: ";
        chomp($val = <STDIN> );
        $client->secret($val);
        
    # not needed if web app (see $client->canvas->get_fb_params)
        $client->auth->get_session( $token );
        
    use Data::Dumper;
        my $friends_perl = $client->friends->get;
        print Dumper $friends_perl;
        
    my $notifications_perl = $client->notifications->get;
        print Dumper $notifications_perl;
        
    # Current user's quotes
        my $quotes_perl = $client->users->get_info(
            uids => $friends_perl,
            fields => ['quotes']
        );
        print Dumper $quotes_perl;
        
    $client->auth->logout;
 
DESCRIPTION
    A Perl implementation of the Facebook API, working off of the canonical
    Java and PHP implementations. By default it uses JSON::Any to parse the
    response returned by Facebook's server. There is an option to return the
    raw response in either XML or JSON (See the "parse" method below). As
    the synopsis states, the following environment variables are used to set
    the defaults for new instances:
 
        WFA_API_KEY
        WFA_SECRET
        WFA_SESSION_KEY
        WFA_DESKTOP
 
    Additionally, for each instance that is created, the following
    environment variables are used if no values are set:
 
        WFA_API_KEY_APP_PATH
        WFA_SECRET_APP_PATH
        WFA_SESSION_KEY_APP_PATH
        WFA_DESKTOP_APP_PATH
 
    Where "APP_PATH" is replaced by whatever $client->app_path returns, with
    all non-alphanumeric characters replaced with an underscore and all
    characters upcased (e.g., foo-bar-baz becomes FOO_BAR_BAZ).
 
SUBROUTINES/METHODS
    new( %params )
        Returns a new instance of this class. You are able to pass in any of
        the attribute method names in WWW::Facebook::API to set its value:
 
            my $client = WWW::Facebook::API->new(
                parse => 1,
                format => 'JSON',
                secret => 'application_secret_key',
                api_key => 'application_key',
                session_key => 'session_key',
                session_expires => 'session_expires',
                session_uid => 'session_uid',
                desktop => 1,
                api_version => '1.0',
                callback => 'callback_url',
                next => 'next',
                popup => 'popup',
                skipcookie => 'skip_cookie',
                throw_errors => 1,
            );
            $copy = $client->new;
 
NAMESPACE METHODS
    All method names from the Facebook API are lower_cased instead of
    CamelCase.
 
    admin
        admin namespace of the API (See WWW::Facebook::API::Admin).
 
    application
        application namespace of the API (See
        WWW::Facebook::API::Application).
 
    auth
        For desktop apps, these are synonymous:
 
            $client->auth->get_session( $client->auth->create_token );
            $client->auth->get_session;
 
        And that's all you really have to do (but see
        WWW::Facebook::API::Auth for details about opening a browser on *nix
        for Desktop apps). "get_session" automatically sets "session_uid",
        "session_key", and "session_expires" for $client. It returns
        nothing.
 
        If the desktop attribute is set to false the $token must be the
        auth_token returned from Facebook to your web app for that user:
 
            if ( $q->param('auth_token') ) {
                $client->auth->get_session( $q->param('auth_token') );
            }
 
        "get_session" automatically sets "session_uid", "session_key", and
        "session_expires" for $client. It returns nothing.
 
        See WWW::Facebook::API::Auth for details.
 
    canvas
        Work with the canvas. See WWW::Facebook::API::Canvas.
 
            $response = $client->canvas->get_user( $q )
            $response = $client->canvas->get_fb_params( $q )
            $response = $client->canvas->get_non_fb_params( $q )
            $response = $client->canvas->validate_sig( $q )
            $response = $client->canvas->in_fb_canvas( $q )
            $response = $client->canvas->in_frame( $q )
 
    comments
        comments namespace of the API (See WWW::Facebook::API::Comments).
 
    connect
        connect namespace of the API (See WWW::Facebook::API::Connect).
 
    data
        data namespace of the API (See WWW::Facebook::API::Data). All method
        names from the Facebook API are lower_cased instead of CamelCase:
 
            $response = $client->data->set_cookie( uid => 23, qw/name foo value bar/);
            $cookies = $client->data->get_cookies(
                uid => 4534,
                name => 'foo',
            );
 
    events
        events namespace of the API (See WWW::Facebook::API::Events). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->events->get(
                uid => 'uid',
                eids => [@eids],
                start_time => 'utc',
                end_time => 'utc',
                rsvp_status => 'attending|unsure|declined|not_replied',
            );
            $response = $client->events->get_members( eid => 233 );
 
    fbml
        fbml namespace of the API (See WWW::Facebook::API::FBML). All method
        names from the Facebook API are lower_cased instead of CamelCase:
 
            $response = $client->fbml->set_ref_handle( handle => '', fbml => '');
            $response = $client->fbml->refresh_img_src( url => '');
            $response = $client->fbml->refresh_ref_url( url => '');
 
    feed
        feed namespace of the API (See WWW::Facebook::API::Feed). All method
        names from the Facebook API are lower_cased instead of CamelCase:
 
            $response
                = $client->feed->publish_story_to_user(
                    title => 'title',
                    body => 'markup',
                    ...
            );
            $response
                = $client->feed->publish_action_of_user(
                    title => 'title',
                    body => 'markup',
                    ...
            );
            $response
                = $client->feed->publish_templatized_action(
                    actor_id => 'title',
                    title_template => 'markup',
                    ...
            );
 
    fql fql namespace of the API (See WWW::Facebook::API::FQL):
 
            $response = $client->fql->query( query => 'FQL query' );
 
    friends
        friends namespace of the API (See WWW::Facebook::API::Friends). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->friends->get;
            $response = $client->friends->get_app_users;
            $response
                = $client->friends->are_friends( uids1 => [1,5,8], uids2 => [2,3,4] );
            $response = $client->friends->get_lists;
 
    groups
        groups namespace of the API (See WWW::Facebook::API::Groups). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->groups->get( uid => 234324, gids => [2423,334] );
            $response = $client->groups->get_members( gid => 32 );
 
    intl
        intl namespace of the API (See WWW::Facebook::API::Intl).
 
    links
        links namespace of the API (See WWW::Facebook::API::Links).
 
    livemesssage
        liveMesssage namespace of the API (See
        WWW::Facebook::API::LiveMesssage).
 
    message
        message namespace of the API (See WWW::Facebook::API::Message).
 
    notes
        notes namespace of the API (See WWW::Facebook::API::Notes).
 
    notifications
        notifications namespace of the API (See
        WWW::Facebook::API::Notifications). All method names from the
        Facebook API are lower_cased instead of CamelCase:
 
            $response = $client->notifications->get;
            $response = $client->notifications->send(
                to_ids => [ 1, 3 ],
                notification => 'FBML notification markup',
            );
            $response = $client->notifications->send_email(
                recipients => [1, 2343, 445],
                subject => 'subject',
                text => 'text version of email body',
                fbml => 'fbml version of email body',
            );
 
    pages
        pages namespace of the API (See WWW::Facebook::API::Pages). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->pages->get_info(
                page_ids => [@pages],
                fields => [@fields],
                uid => 'user',
                type => 'page type',
            );
            $page_added_app = $client->pages->is_app_added( page_id => 'page' );
            $is_admin = $client->pages->is_admin( page_id => 'page' );
            $is_fan = $client->pages->is_fan( page_id => 'page', uid => 'uid' )
 
    permissions
        permissions namespace of the API (See
        WWW::Facebook::API::Permissions).
 
    photos
        photos namespace of the API (See WWW::Facebook::API::Photos). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->photos->add_tag(
                    pid => 2,
                    tag_uid => 3,
                    tag_text => "me",
                    x => 5,
                    y => 6
                );
            $response = $client->photos->create_album(
                    name => 'fun in the sun',
                    location => 'California',
                    description => "Summer '07",
            );
            $response = $client->photos->get( aid => 2, pids => [4,7,8] );
            $response = $client->photos->get_albums( uid => 1, pids => [3,5] );
            $response = $client->photos->get_tags( pids => [4,5] );
            $response = $client->photos->upload(
                aid => 5,
                caption => 'beach',
                data => 'raw data',
            );
 
    profile
        profile namespace of the API (See WWW::Facebook::API::Profile). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->profile->get_fbml( uid => 3 );
            $response = $client->profile->set_fbml( uid => 5,
                profile => 'markup',
                profile_action => 'markup',
                mobile_profile => 'markup',
            );
 
    sms sms namespace of the API (See WWW::Facebook::API::SMS).
 
    status
        status namespace of the API (See WWW::Facebook::API::Status).
 
    stream
        stream namespace of the API (See WWW::Facebook::API::Stream).
 
    users
        users namespace of the API (See WWW::Facebook::API::Users). All
        method names from the Facebook API are lower_cased instead of
        CamelCase:
 
            $response = $client->users->get_info(
                uids => 2343,
                fields => [ qw/about_me quotes/ ]
            );
            $uid = $client->users->get_logged_in_user;
            $response = $client->users->has_app_permission(
                ext_perm => 'status_update|photo_upload'
            );
            $app_added = $client->users->is_app_user;
            $response = $client->users->set_status(
                status => 'status message',
                clear => 1|0,
            );
 
    video
        video namespace of the API (See WWW::Facebook::API::Video).
 
ATTRIBUTE METHODS
    These are methods to get/set the object's attributes.
 
    api_key( $new_api_key )
        The developer's API key. If $ENV{'WFA_API_KEY'} is set, all
        instances will be initialized with its value. See the Facebook API
        documentation for more information.
 
    api_version( $new_version )
        Which version to use (default is "1.0", which is the latest one
        supported currently). Corresponds to the argument "v" that is passed
        in to methods as a parameter.
 
    app_id()
        The application id where your Facebook app is described, e.g.:
 
            http://www.facebook.com/apps/application.php?id=THIS_NUMBER
 
        Remember, "WWW::Facebook::API" is not that clairvoyant: You must
        first set this number (when calling "new()") in order to use it.
 
    app_path()
        If using the Facebook canvas, the path to your application. For
        example if your application is at http://apps.facebook.com/example/
        this should be "example".
 
    apps_uri()
        The apps uri for Facebook apps. The default is
        http://apps.facebook.com/.
 
    callback( $new_default_callback )
        The callback URL for your application. See the Facebook API
        documentation. Just a convenient place holder for the value.
 
    call_success( $is_success, $error_message )
        Takes in two values, the first setting the object's
        last_call_success attribute, and the second setting the object's
        last_error attribute. Returns an array reference containing the
        last_call_success and last_error values, in that order:
 
            my $response = $client->call_success( 1, undef );
            if ( $response->[0] == 1 ) {
                print 'Last call successful';
            }
            if ( not defined $response->[1] ) {
                print 'Error message is undefined';
            }
 
            $client->call_success( 0,'2: The service is not available at this time.');
 
            $response = $client->call_success;
            if ( not $response->[0] ) {
                print 'Last call unsuccessful';
            }
            if ( not defined $response->[1] ) {
                print "Error $response->[1]";
            }
 
        The "call" method calls this method, and shouldn't need to be called
        to set anything, just to get the value later if "throw_errors" is
        false.
 
    config($filename)
        Used when instantiating a new object to set the environment
        variables. The file has a simple, BASH-style format:
 
            WFA_API_KEY_MYAPP=383378efa485934bc
            WFA_SECRET_MYAPP=234234ac902f340923
            WFA_SESSION_KEY_MYAPP=34589349abce989d
            WFA_DESKTOP_MYAPP=1
 
        If the file is found, and the environment variables are already set,
        then the variables will not be changed.
 
    debug(0|1)
        A boolean set to either true or false, determining if debugging
        messages should be carped for REST calls. Defaults to 0.
 
    desktop(0|1)
        A boolean signifying if the client is being used for a desktop
        application. If $ENV{'WFA_DESKTOP'} is set, all instances will be
        initialized with its value. Defaults to 0 otherwise. See the
        Facebook API documentation for more information.
 
    format('JSON'|'XML')
        The default format to use if none is supplied with an API method
        call. Currently available options are XML and JSON. Defaults to
        JSON.
 
    last_call_success(1|0)
        A boolean set to true or false, to show whether the last call was
        succesful or not. Called by "call_success". Defaults to 1.
 
    last_error( $error_message )
        A string holding the error message of the last failed call to the
        REST server. Called by "call_success". Defaults to undef.
 
    next( $new_default_next_url )
        See the Facebook API documentation's Authentication Guide. Just a
        convenient place holder for the value.
 
    parse(1|0)
        Defaults to 1. If set to true, the response returned by each method
        call will be a Perl structure (see each method for the structure it
        will return). If it is set to 0, the response string from the server
        will be returned. (The response string is unescaped if the 'desktop'
        attribute is false).
 
    popup( $popup )
        See the Facebook API documentation's Authentication Guide. Just a
        convenient place holder for the value.
 
    query( $query )
        Stores the current query object to use (either CGI or
        Apache::Request) but really anything that implements the "param()"
        method can be used. N.B. When using "require_*" methods below,
        Apache::Request will croak because it does not implement a redirect
        method.
 
    secret( $new_secret_key )
        For a desktop application, this is the secret that is used for
        calling "auth->create_token" and "auth->get_session". For a web
        application, secret is used for all calls to the API. If
        $ENV{'WFA_SECRET'} is set, all instances will be initialized with
        its value. See the Facebook API documentation under Authentication
        for more information.
 
    server_uri( $new_server_uri )
        The server uri to access the Facebook REST server. Default is
        'http://api.facebook.com/restserver.php'. Used to make calls to the
        Facebook server, and useful for testing. See the Facebook API
        documentation.
 
    session_expires( $new_expires )
        The session expire timestamp for the client's user. Automatically
        set when "$client->auth->get_session" is called. See the Facebook
        API documentation.
 
    session_key( $new_key )
        The session key for the client's user. Automatically set when
        "$client->auth->get_session" is called. See the Facebook API
        documentation.
 
    session_uid( $new_uid )
        The session's uid for the client's user. Automatically set when
        "$client->auth->get_session" is called. See the Facebook API
        documentation.
 
    skipcookie(0|1)
        See the Facebook API documentation's Authentication Guide. Just a
        convenient place holder for the value.
 
    throw_errors(0|1)
        A boolean set to either true of false, signifying whether or not to
        "confess" when an error is returned from the REST server.
 
    ua The LWP::UserAgent agent used to communicate with the REST server.
        The agent_alias is initially set to "Perl-WWW-Facebook-API/0.4.13".
 
PUBLIC METHODS
    call( $method, %args )
        The method which other submodules within WWW::Facebook::API use to
        call the Facebook REST interface. It takes in a string signifying
        the method to be called (e.g., 'auth.getSession'), and key/value
        pairs for the parameters to use: $client->call( 'auth.getSession',
        auth_token => 'b3324235e' );
 
        For all calls, if " parse " is set to true and an empty hash/array
        reference is returned from facebook, nothing will be returned
        instead of the empty hash/array reference.
 
    generate_sig( params => $params_hashref, secret => $secret )
        Generates a sig when given a parameters hash reference and a secret
        key.
 
    get_add_url( %params )
        Returns the URL to add your application with the parameters (that
        are given) included. Note that the API key and the API version
        parameters are also included automatically. If the "next" parameter
        is passed in, it's string-escaped. Used for platform applications:
 
            $response = $client->get_add_url( next => 'http://my.website.com' );
 
            # prints http://www.facebook.com/app.php?api_key=key&v=1.0
            # &next=http%3A%2F%2Fmy.website.com
            print $response;
 
    get_app_url
        Returns the URL to your application, if using the Facebook canvas.
        Uses <$client->app_path>, which you have to set yourself (See
        <app_path> below).
 
    get_facebook_url( $subdomain )
        Returns the URL to Facebook. You can specifiy a specific network as
        a parameter:
 
            $response = $client->get_facebook_url( 'apps' );
            print $response; # prints http://apps.facebook.com
 
    get_infinite_session_url()
        Returns the URL for the user to generate an infinite session for
        your application:
 
            $response = $client->get_infinite_session_url;
 
            # prints http://www.facebook.com/codegen.php?api_key=key&v=1.0
            print $response;
 
        From what I've seen, the session keys that Facebook returns don't
        expire automatically, so as long as you don't call
        $client->auth->logout, you shouldn't even need to worry about this.
 
    get_login_url( %params )
        Returns the URL to login to your application with the parameters
        (that are defined) included. If the "next" parameter is passed in,
        it's string-escaped:
 
            $response = $client->get_login_url( next => 'http://my.website.com' );
 
            # prints http://www.facebook.com/login.php?api_key=key&v=1.0
            # &next=http%3A%2F%2Fmy.website.com
            print $response;
 
    get_url( $type, @args )
        Called by all the above "get_*_url" methods above. $type can be
        'login', 'app', 'add', 'facebook', 'infinite_session', or 'custom'.
        @args contains the query parameters for the the cases when $type is
        not 'app' or 'facebook'. In the case of 'custom', the first item in
        @args is the url path relative to the facebook website. All of the
        "get_*_url" methods correspond to the ones in the official PHP
        client.
 
    log_string($params_hashref, $response)
        Pass in the params and the response from a call, and it will make a
        formatted string out of it showing the parameters used, and the
        response received.
 
    redirect( $url, $query_object )
        Called by "require()" to redirect the user either within the canvas
        or without. If no <$query_object> is defined, then whatever is in
        "$client->query" will be used. (See WWW::Facebook::API::Canvas) If
        no redirect is required, nothing is returned. That is the only case
        when there is no return value. If a redirect is required, there are
        two cases that are covered:
 
        user not logged in
            If there isn't a user logged in to Facebook's system, then a
            redirect to the Facebook login page is printed to STDOUT with a
            next parameter to the appropriate page. The redirect is called
            with the the CGI module that comes standard with perl. The
            return value in this case is 1.
 
        user logged in
            If the user is logged in to Facebook, and a redirect is
            required, the necessary FBML is returned: "<fb:redirect
            url="WHATEVER">". So the return value is the FBML, which you can
            then print to STDOUT.
 
    require_add( $query )
        Redirects the user to what "get_add_url()" returns. See "require()"
        below for the $query parameter.
 
    require_frame( $query )
        Redirects the user to what "get_login_url( canvas =" '1' )> returns.
        See "require()" below for the $query parameter.
 
    require_login( $query )
        Redirects the user to what "get_login_url()" returns. See
        "require()" below for the $query parameter.
 
    require( $what, $query )
        The official PHP client has "require_*" methods that take no
        arguments. Logically, you better know what you want to require when
        you call each of them, so this API consolidates them into one
        method. The valid values for $what are 'add', 'frame', and 'login'.
        $query is the query object to use (most likely CGI). If $query is
        undefined, the value of " $client-"query >> is used.
 
    session( uid => $uid, key => $session_key, expires => $session_expires )
        Sets the "user", "session_key", and "session_expires" all at once.
 
    unescape_string($escaped_string)
        Returns its parameter with all the escape sequences unescaped. If
        you're using a web app, this is done automatically to the response.
 
    verify_sig( sig => $expected_sig, params => $params_hashref )
        Checks the signature for a given set of parameters against an
        expected value.
 
PRIVATE METHODS
    _add_url_params( %params )
        Called by both "get_login_url" and "get_add_url" to process any of
        their parameters. Prepends the api_key and the version number as
        parameters and returns the parameter string.
 
    _check_values_of($params_hashref)
        Makes sure all the values of the $params_hashref that need to be set
        are set. Uses the defaults for those values that are needed and not
        supplied.
 
    _format_and_check_params( $method, %args )
        Format method parameters (given in %args) according to Facebook API
        specification. Returns a list of items: A hash reference of the
        newly formatted params (based on %params) and the image data if the
        call is an photo upload:
 
            ($params, $img_data) = $self->_format_and_check_params( $method, %args );
 
    _has_error_response( $response )
        Determines if the response is an error, and logs it appropriately.
        Returns true if response is an error, false otherwise.
 
    is_empty_response( $response )
        Determines if the response is an empty hash or array reference.
        Returns true if the response is empty, false otherwise.
 
    _post_request( $params_hashref, $sig, $img_data )
        Used by "call" to post the request to the REST server and return the
        response. $img_data is used when uploading an photo to Facebook.
 
    _parse($string)
        Parses the response from a call to the Facebook server to make it a
        Perl data structure, and returns the result.
 
    _parser()
        Returns a new instance of JSON::Any.
 
    _reformat_response( $params, $response )
        Reformats the response according to whether the app is a desktop
        app, if the response should be parsed (i.e., changed to a Perlish
        structure), if the response is empty, etc. Returns the reformatted
        response.
 
DIAGNOSTICS
    "Unable to load JSON module for parsing: %s"
        JSON::Any was not able to load one of the JSON modules it uses to
        parse JSON. Please make sure you have one (of the several) JSON
        modules it can use installed.
 
    "Error during REST call: %s"
        This means that there's most likely an error in the server you are
        using to communicate to the Facebook REST server. Look at the
        traceback to determine why an error was thrown. Double-check that
        "server_uri" is set to the right location.
 
    "Cannot create namespace %s: %s"
        Cannot create the needed subclass method. Contact the developer to
        report.
 
    "Cannot create attribute %s: %s"
        Cannot create the needed attribute method. Contact the developer to
        report.
 
    "<_format_and_check_params must be called in list context!">
        You're using a private method call and you're not calling it in list
        context. It returns a list of items, all of which should be
        interesting to you.
 
    "Cannot open %s"
        Cannot open the configuration file. Make sure the filename is
        correct and that the program has the appropriate permissions.
 
    "Cannot close %s"
        Cannot close the configuration file. Make sure the filename is
        correct and that the program has the appropriate permissions.
 
FAQ
    Id numbers returned by Facebook are being rounded. What is the problem?
        The JSON module that is installed on your system is converting the
        numbers to Perl and is losing precision in the process. Make sure
        you have the latest JSON::XS module installed or JSON::DWIW (any
        recent version of either should work).
 
    How do I run the examples in the examples directory?
        There are two types of examples in the examples directory,
        desktop-based and web-based. With desktop-based, the api key and
        secret key are prompted for on STDIN, and then the user's browser is
        opened and directed to the Facebook log in page. Currently, the
        desktop-based examples pause for 20 seconds to allow for the user to
        enter in their credentials.
 
        With web-based, you have to pass in the api key, secret key, and app
        path to the constructor, and then place the script at the callback
        url you specified in the Facebook setup for your application. For
        instance, when using the web-based example, you might have the
        following callback url (note the trailing slash):
 
            http://www.example.com/facebook-canvas-json/
 
        You have to make sure the required Perl modules are in the @INC path
        for the web server process, otherwise there will be a 500 Internal
        Server error. The easiest way to do that is to put the following at
        the top of the example script (as long as "path-to-perl5-libs" is
        readable by the web server process):
 
            use lib "path-to-perl5-libs";
 
    I'm getting the "Multiple values for %s" error from WFA::Canvas. Help?
        This usually means that your forms are using GET rather than POST to
        Facebook URLs. Change your forms to use POST and the problem should
        be resolved. (See RT#31620 and RT#31944 for more information).
 
CONFIGURATION AND ENVIRONMENT
    WWW::Facebook::API requires no configuration files or environment
    variables.
 
DEPENDENCIES
    version Crypt::SSLeay Digest::MD5 JSON::Any Time::HiRes LWP::UserAgent
 
INCOMPATIBILITIES
    None.
 
BUGS AND LIMITATIONS
    No bugs have been reported.
 
    Please report any bugs or feature requests to
    "bug-www-facebook-api@rt.cpan.org", or through the web interface at
    <http://rt.cpan.org>.
 
SOURCE REPOSITORY
    http://github.com/unobe/perl-wfa/tree/master
 
TESTING
    There are some live tests included, but they are only run if the
    following environment variables are set: WFA_API_KEY_TEST
    WFA_SECRET_TEST WFA_SESSION_KEY_TEST
 
    Additionally, if your app is a desktop one, you must set
    "WFA_DESKTOP_TEST". Also, the session key must be valid for the API key
    being used.
 
    To enable POD coverage and POD formattings tests, set "PERL_TEST_POD" to
    true. To enable Perl::Critic tests, set "_PERL_TEST_CRITIC" to true.
 
AUTHOR
    David Romano "<unobe@cpan.org>"
 
CONTRIBUTORS
    Clayton Scott "http://www.matrix.ca"
 
    David Leadbeater "http://dgl.cx"
 
    Gisle Aas "none"
 
    J. Shirley "<jshirley@gmail.com>"
 
    Jim Spath "<jspath@gmail.com>"
 
    Matt Sickler "<imMute@mail.msk3.ath.cx>"
 
    Nick Gerakines "<nick@socklabs.com>"
 
    Olaf Alders "<olaf@wundersolutions.com>"
 
    Patrick Michael Kane "<pmk@wawd.com>"
 
    Ryan D Johnson "ryan@innerfence.com"
 
    Sean O'Rourke "<seano@cpan.org>"
 
    Shawn Van Ittersum "none"
 
    Simon Cavalletto "<simonm@cavalletto.org>"
 
    Skyler Clark "none"
 
    Thomas Sibley "<tsibley@cpan.org>"
 
    Derek Del Conte "derek@delconte.org"
 
    King Mak "none"
 
    Louis-Philippe "none"
 
LICENSE AND COPYRIGHT
    Copyright (c) 2007, David Romano "<unobe@cpan.org>". All rights
    reserved.
 
    This module is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself. See perlartistic.
 
DISCLAIMER OF WARRANTY
    BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
    FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
    OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
    PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
    EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
    ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
    YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
    NECESSARY SERVICING, REPAIR, OR CORRECTION.
 
    IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
    WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
    REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENSE, BE LIABLE
    TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR
    CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
    SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
    RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
    FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
    SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
    DAMAGES.