@@ -87,8 +87,8 @@ sub _uri {
8787 return $uri ;
8888}
8989
90- # Using the signed_request Parameter: Step 1. Parse the signed_request
91- # https://developers.facebook.com/docs/howtos/ login/signed-request/#step1
90+ # Using Login with Games on Facebook: Parsing the Signed Request
91+ # https://developers.facebook.com/docs/facebook- login/using-login-with-games/#parsingsr
9292sub parse_signed_request {
9393 my ($self , $signed_request ) = @_ ;
9494 croak ' signed_request is not given' unless $signed_request ;
@@ -107,7 +107,7 @@ sub parse_signed_request {
107107 return $val ;
108108}
109109
110- # OAuth Dialog: Constructing a URL to the OAuth Dialog
110+ # OAuth Dialog: Constructing a URL to the OAuth dialog
111111# https://developers.facebook.com/docs/reference/dialogs/oauth/
112112sub auth_uri {
113113 my ($self , $param_ref ) = @_ ;
@@ -133,8 +133,8 @@ sub set_access_token {
133133 $self -> {access_token } = $token ;
134134}
135135
136- # Login as an App: Step 1. Obtain an App Access Token
137- # https://developers.facebook.com/docs/howtos/ login/login-as-app/#step1
136+ # Access Tokens: App Tokens
137+ # https://developers.facebook.com/docs/facebook- login/access-tokens/#apptokens
138138sub get_app_token {
139139 my $self = shift ;
140140
@@ -143,8 +143,8 @@ sub get_app_token {
143143 return $token_ref ;
144144}
145145
146- # Login for Server-side Apps: Step 6. Exchange the code for an Access Token
147- # https://developers.facebook.com/docs/howtos/ login/server-side-login/#step6
146+ # The Login Flow for Web (without JavaScript SDK): Exchanging code for an access token
147+ # https://developers.facebook.com/docs/facebook- login/login-flow-for-web-no-jssdk/#exchangecode
148148sub get_user_token_by_code {
149149 my ($self , $code ) = @_ ;
150150
@@ -279,22 +279,22 @@ sub batch_fast {
279279}
280280
281281# Facebook Query Language (FQL)
282- # https://developers.facebook.com/docs/reference /fql/
282+ # https://developers.facebook.com/docs/technical-guides /fql/
283283sub fql {
284284 my $self = shift ;
285285 my $query = shift ;
286286 return $self -> get(' /fql' , +{q => $query }, @_ );
287287}
288288
289289# Facebook Query Language (FQL): Multi-query
290- # https://developers.facebook.com/docs/reference /fql/#multi
290+ # https://developers.facebook.com/docs/technical-guides /fql/#multi
291291sub bulk_fql {
292292 my $self = shift ;
293293 my $batch = shift ;
294294 return $self -> fql($self -> json-> encode($batch ), @_ );
295295}
296296
297- # Graph API: Deleting
297+ # Deleting: Objects
298298# https://developers.facebook.com/docs/reference/api/deleting/
299299sub delete {
300300 my $self = shift ;
@@ -448,7 +448,7 @@ sub prep_param {
448448 $param_ref -> {fields } = $self -> prep_fields_recursive($field_ref );
449449 }
450450
451- # Object API
451+ # Using the Object API
452452 # https://developers.facebook.com/docs/opengraph/using-object-api/
453453 my $object = $param_ref -> {object };
454454 if ($object && ref $object eq ' HASH' ) {
@@ -482,16 +482,16 @@ sub prep_fields_recursive {
482482 }
483483}
484484
485- # How-To: Publish an Action
486- # https://developers.facebook.com/docs/technical-guides/ opengraph/publish-action/#create
485+ # Using Actions: Publishing Actions
486+ # https://developers.facebook.com/docs/opengraph/using-actions/#publish
487487sub publish_action {
488488 my $self = shift ;
489489 my $action = shift ;
490490 croak ' namespace is not set' unless $self -> namespace;
491491 return $self -> post(sprintf (' /me/%s:%s' , $self -> namespace, $action ), @_ );
492492}
493493
494- # Test Users
494+ # Test Users: Creating
495495# https://developers.facebook.com/docs/test_users/
496496sub create_test_users {
497497 my $self = shift ;
@@ -511,8 +511,8 @@ sub create_test_users {
511511 return $self -> batch(\@settings );
512512}
513513
514- # Updating Objects
515- # https://developers.facebook.com/docs/technical-guides/ opengraph/defining-an-object /#update
514+ # Using Self-Hosted Objects: Updating Objects
515+ # https://developers.facebook.com/docs/opengraph/using-objects /#update
516516sub check_object {
517517 my ($self , $target ) = @_ ;
518518 my $param_ref = +{
0 commit comments