diff -c -r WWW-Facebook-API-v0.4.11.bak/blib/lib/WWW/Facebook/API/Feed.pm WWW-Facebook-API-v0.4.11/blib/lib/WWW/Facebook/API/Feed.pm *** WWW-Facebook-API-v0.4.11.bak/blib/lib/WWW/Facebook/API/Feed.pm 2008-02-29 05:33:41.000000000 +0100 --- WWW-Facebook-API-v0.4.11/blib/lib/WWW/Facebook/API/Feed.pm 2008-07-27 21:50:22.000000000 +0200 *************** *** 12,17 **** --- 12,39 ---- use version; our $VERSION = qv('0.4.11'); + # new methods: + sub register_template_bundle { + return shift->base->call( 'feed.registerTemplateBundle', @_ ); + } + + sub get_registered_template_bundles { + return shift->base->call( 'feed.getRegisteredTemplateBundles', @_ ); + } + + sub get_registered_template_bundle_by_id { + return shift->base->call( 'feed.getRegisteredTemplateBundleByID', @_ ); + } + + sub deactivate_template_bundle_by_id { + return shift->base->call( 'feed.deactivateTemplateBundleByID', @_ ); + } + + sub publish_user_action { + return shift->base->call( 'feed.publishUserAction', @_ ); + } + + # old methods: sub publish_story_to_user { return shift->base->call( 'feed.publishStoryToUser', @_ ); } diff -c -r WWW-Facebook-API-v0.4.11.bak/blib/lib/WWW/Facebook/API/Profile.pm WWW-Facebook-API-v0.4.11/blib/lib/WWW/Facebook/API/Profile.pm *** WWW-Facebook-API-v0.4.11.bak/blib/lib/WWW/Facebook/API/Profile.pm 2008-02-29 05:33:41.000000000 +0100 --- WWW-Facebook-API-v0.4.11/blib/lib/WWW/Facebook/API/Profile.pm 2008-06-05 10:46:03.000000000 +0200 *************** *** 13,19 **** --- 13,23 ---- use version; our $VERSION = qv('0.4.11'); sub set_fbml { return shift->base->call( 'profile.setFBML', @_ ) } + sub set_info { return shift->base->call( 'profile.setInfo', @_ ) } + sub set_info_options { return shift->base->call( 'profile.setInfoOptions', @_ ) } sub get_fbml { return shift->base->call( 'profile.getFBML', @_ ) } + sub get_info { return shift->base->call( 'profile.getInfo', @_ ) } + sub get_info_options { return shift->base->call( 'profile.getInfoOptions', @_ ) } 1; # Magic true value required at end of module __END__ *************** *** 50,59 **** --- 54,71 ---- The profile.setFBML method of the Facebook API. + =item set_info( title => $title, type => $type, info_fields => $info_fields, uid => $single_uid, ... ) + + The profile.setInfo method of the Facebook API. + =item get_fbml( uid => $single_uid ) The profile.getFBML method of the Facebook API. + =item get_info( uid => $single_uid, ... ) + + The profile.getInfo method of the Facebook API. + =back =head1 DIAGNOSTICS diff -c -r WWW-Facebook-API-v0.4.11.bak/blib/lib/WWW/Facebook/API.pm WWW-Facebook-API-v0.4.11/blib/lib/WWW/Facebook/API.pm *** WWW-Facebook-API-v0.4.11.bak/blib/lib/WWW/Facebook/API.pm 2008-02-29 05:34:08.000000000 +0100 --- WWW-Facebook-API-v0.4.11/blib/lib/WWW/Facebook/API.pm 2008-07-27 21:44:40.000000000 +0200 *************** *** 64,71 **** debug => 0, throw_errors => 1, api_version => '1.0', ! apps_uri => 'http://apps.facebook.com/', ! server_uri => 'http://api.facebook.com/restserver.php', ( map { $_ => q{} } qw( api_key secret desktop --- 64,71 ---- debug => 0, throw_errors => 1, api_version => '1.0', ! apps_uri => 'http://apps.new.facebook.com/', ! server_uri => 'http://api.new.facebook.com/restserver.php', ( map { $_ => q{} } qw( api_key secret desktop *************** *** 694,699 **** --- 694,750 ---- feed namespace of the API (See L). All method names from the Facebook API are lower_cased instead of CamelCase: + new profile design methods: + $response + = $client->feed->register_template_bundle( + one_line_story_templates => [ + '{*actor*} liked the cover of {*linked_edition*}', + '{*actor*} have a favourite Comic Book cover (less specific later!)' ] + short_story_templates => [ + { + template_title => '{*actor*} really liked the cover of {*linked_edition*}', + template_body => 'this is the body of the short story' + }, + ... + ], + full_story_template => [ + { + template_title => '{*actor*} really liked the cover of {*linked_edition*}', + template_body => 'this is the body of the long story with a {*placeholder*}' + }, + { + template_title => '{*actor*} ', + template_body => 'this is the body of the long story without a placeholder (less specific templates later as above!)' + }, + ... + ], + ] + ); + + $response + = $client->feed->get_registered_template_bundles(); + + $response + = $client->feed->get_registered_template_bundle_by_id( + template_bundle_id => $id + ); + + $response + = $client->feed->deactivate_template_bundle_by_id( + template_bundle_id => $id + ); + + $response + = $client->feed->publish_user_action( + template_bundle_id => $id, + # optional: + template_data => [...], + target_ids => [...], + body_general => "this will only be shown once in aggregated stories" + ); + + + old methods: $response = $client->feed->publish_story_to_user( title => 'title', *************** *** 713,718 **** --- 764,771 ---- ... ); + + =item friends friends namespace of the API (See L). diff -c -r WWW-Facebook-API-v0.4.11.bak/lib/WWW/Facebook/API/Feed.pm WWW-Facebook-API-v0.4.11/lib/WWW/Facebook/API/Feed.pm *** WWW-Facebook-API-v0.4.11.bak/lib/WWW/Facebook/API/Feed.pm 2008-02-29 05:33:41.000000000 +0100 --- WWW-Facebook-API-v0.4.11/lib/WWW/Facebook/API/Feed.pm 2008-07-27 21:50:22.000000000 +0200 *************** *** 12,17 **** --- 12,39 ---- use version; our $VERSION = qv('0.4.11'); + # new methods: + sub register_template_bundle { + return shift->base->call( 'feed.registerTemplateBundle', @_ ); + } + + sub get_registered_template_bundles { + return shift->base->call( 'feed.getRegisteredTemplateBundles', @_ ); + } + + sub get_registered_template_bundle_by_id { + return shift->base->call( 'feed.getRegisteredTemplateBundleByID', @_ ); + } + + sub deactivate_template_bundle_by_id { + return shift->base->call( 'feed.deactivateTemplateBundleByID', @_ ); + } + + sub publish_user_action { + return shift->base->call( 'feed.publishUserAction', @_ ); + } + + # old methods: sub publish_story_to_user { return shift->base->call( 'feed.publishStoryToUser', @_ ); } diff -c -r WWW-Facebook-API-v0.4.11.bak/lib/WWW/Facebook/API/Profile.pm WWW-Facebook-API-v0.4.11/lib/WWW/Facebook/API/Profile.pm *** WWW-Facebook-API-v0.4.11.bak/lib/WWW/Facebook/API/Profile.pm 2008-02-29 05:33:41.000000000 +0100 --- WWW-Facebook-API-v0.4.11/lib/WWW/Facebook/API/Profile.pm 2008-06-05 10:46:03.000000000 +0200 *************** *** 13,19 **** --- 13,23 ---- use version; our $VERSION = qv('0.4.11'); sub set_fbml { return shift->base->call( 'profile.setFBML', @_ ) } + sub set_info { return shift->base->call( 'profile.setInfo', @_ ) } + sub set_info_options { return shift->base->call( 'profile.setInfoOptions', @_ ) } sub get_fbml { return shift->base->call( 'profile.getFBML', @_ ) } + sub get_info { return shift->base->call( 'profile.getInfo', @_ ) } + sub get_info_options { return shift->base->call( 'profile.getInfoOptions', @_ ) } 1; # Magic true value required at end of module __END__ *************** *** 50,59 **** --- 54,71 ---- The profile.setFBML method of the Facebook API. + =item set_info( title => $title, type => $type, info_fields => $info_fields, uid => $single_uid, ... ) + + The profile.setInfo method of the Facebook API. + =item get_fbml( uid => $single_uid ) The profile.getFBML method of the Facebook API. + =item get_info( uid => $single_uid, ... ) + + The profile.getInfo method of the Facebook API. + =back =head1 DIAGNOSTICS diff -c -r WWW-Facebook-API-v0.4.11.bak/lib/WWW/Facebook/API.pm WWW-Facebook-API-v0.4.11/lib/WWW/Facebook/API.pm *** WWW-Facebook-API-v0.4.11.bak/lib/WWW/Facebook/API.pm 2008-02-29 05:34:08.000000000 +0100 --- WWW-Facebook-API-v0.4.11/lib/WWW/Facebook/API.pm 2008-07-27 21:44:40.000000000 +0200 *************** *** 64,71 **** debug => 0, throw_errors => 1, api_version => '1.0', ! apps_uri => 'http://apps.facebook.com/', ! server_uri => 'http://api.facebook.com/restserver.php', ( map { $_ => q{} } qw( api_key secret desktop --- 64,71 ---- debug => 0, throw_errors => 1, api_version => '1.0', ! apps_uri => 'http://apps.new.facebook.com/', ! server_uri => 'http://api.new.facebook.com/restserver.php', ( map { $_ => q{} } qw( api_key secret desktop *************** *** 694,699 **** --- 694,750 ---- feed namespace of the API (See L). All method names from the Facebook API are lower_cased instead of CamelCase: + new profile design methods: + $response + = $client->feed->register_template_bundle( + one_line_story_templates => [ + '{*actor*} liked the cover of {*linked_edition*}', + '{*actor*} have a favourite Comic Book cover (less specific later!)' ] + short_story_templates => [ + { + template_title => '{*actor*} really liked the cover of {*linked_edition*}', + template_body => 'this is the body of the short story' + }, + ... + ], + full_story_template => [ + { + template_title => '{*actor*} really liked the cover of {*linked_edition*}', + template_body => 'this is the body of the long story with a {*placeholder*}' + }, + { + template_title => '{*actor*} ', + template_body => 'this is the body of the long story without a placeholder (less specific templates later as above!)' + }, + ... + ], + ] + ); + + $response + = $client->feed->get_registered_template_bundles(); + + $response + = $client->feed->get_registered_template_bundle_by_id( + template_bundle_id => $id + ); + + $response + = $client->feed->deactivate_template_bundle_by_id( + template_bundle_id => $id + ); + + $response + = $client->feed->publish_user_action( + template_bundle_id => $id, + # optional: + template_data => [...], + target_ids => [...], + body_general => "this will only be shown once in aggregated stories" + ); + + + old methods: $response = $client->feed->publish_story_to_user( title => 'title', *************** *** 713,718 **** --- 764,771 ---- ... ); + + =item friends friends namespace of the API (See L).