r26148 - in /trunk/libwww-facebook-api-perl: ./ debian/ examples/ lib/WWW/Facebook/ lib/WWW/Facebook/API/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Oct 18 16:15:17 UTC 2008
Author: gregoa
Date: Sat Oct 18 16:15:14 2008
New Revision: 26148
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26148
Log:
New upstream release.
Added:
trunk/libwww-facebook-api-perl/examples/web-app.pl
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/examples/web-app.pl
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Admin.pm
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/lib/WWW/Facebook/API/Admin.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Application.pm
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/lib/WWW/Facebook/API/Application.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/SMS.pm
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/lib/WWW/Facebook/API/SMS.pm
trunk/libwww-facebook-api-perl/t/._admin.t
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/t/._admin.t
trunk/libwww-facebook-api-perl/t/._application.t
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/t/._application.t
trunk/libwww-facebook-api-perl/t/._sms.t
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/t/._sms.t
trunk/libwww-facebook-api-perl/t/admin.t
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/t/admin.t
trunk/libwww-facebook-api-perl/t/application.t
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/t/application.t
trunk/libwww-facebook-api-perl/t/sms.t
- copied unchanged from r26147, branches/upstream/libwww-facebook-api-perl/current/t/sms.t
Modified:
trunk/libwww-facebook-api-perl/Changes
trunk/libwww-facebook-api-perl/MANIFEST
trunk/libwww-facebook-api-perl/META.yml
trunk/libwww-facebook-api-perl/Makefile.PL
trunk/libwww-facebook-api-perl/debian/changelog
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Auth.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Canvas.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Data.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Events.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FBML.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FQL.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Feed.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Friends.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Groups.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Marketplace.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Notifications.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Pages.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Photos.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Profile.pm
trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Users.pm
trunk/libwww-facebook-api-perl/t/00.load.t
trunk/libwww-facebook-api-perl/t/feed.t
Modified: trunk/libwww-facebook-api-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/Changes?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/Changes (original)
+++ trunk/libwww-facebook-api-perl/Changes Sat Oct 18 16:15:14 2008
@@ -1,4 +1,8 @@
Revision history for WWW-Facebook-API
+
+0.4.14 Tue Oct 14 22:37;41 EDT 2008
+ Added Applicationi,Admin,SMS APIs + tests (tburke++)
+ Fixed a bug with get_registered_template_bundle in Feed API (tburke++)
0.4.13 Wed Jul 30 18:14:59 PDT 2008
Added Readonly as dependency
Modified: trunk/libwww-facebook-api-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/MANIFEST?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/MANIFEST (original)
+++ trunk/libwww-facebook-api-perl/MANIFEST Sat Oct 18 16:15:14 2008
@@ -2,7 +2,10 @@
examples/facebook-canvas-json
examples/facebook-desktop-json
examples/facebook-desktop-raw
+examples/web-app.pl
lib/WWW/Facebook/API.pm
+lib/WWW/Facebook/API/Admin.pm
+lib/WWW/Facebook/API/Application.pm
lib/WWW/Facebook/API/Auth.pm
lib/WWW/Facebook/API/Canvas.pm
lib/WWW/Facebook/API/Data.pm
@@ -17,6 +20,7 @@
lib/WWW/Facebook/API/Pages.pm
lib/WWW/Facebook/API/Photos.pm
lib/WWW/Facebook/API/Profile.pm
+lib/WWW/Facebook/API/SMS.pm
lib/WWW/Facebook/API/Users.pm
Makefile.PL
MANIFEST This list of files
@@ -24,7 +28,9 @@
META.yml
README
t/00.load.t
+t/admin.t
t/api.t
+t/application.t
t/auth.t
t/canvas.t
t/config.t
@@ -47,6 +53,7 @@
t/pod-coverage.t
t/pod.t
t/profile.t
+t/sms.t
+t/upload.jpg
t/users.t
t/xml.t
-t/upload.jpg
Modified: trunk/libwww-facebook-api-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/META.yml?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/META.yml (original)
+++ trunk/libwww-facebook-api-perl/META.yml Sat Oct 18 16:15:14 2008
@@ -1,13 +1,10 @@
---- #YAML:1.0
-name: WWW-Facebook-API
-version: 0.4.13
-abstract: Facebook API implementation
-license: perl
-author:
- - David Romano <unobe at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: WWW-Facebook-API
+version: 0.4.14
+version_from: lib/WWW/Facebook/API.pm
+installdirs: site
+requires:
Crypt::SSLeay: 0
Digest::MD5: 0
JSON::Any: 0
@@ -15,6 +12,6 @@
Readonly: 0
Time::HiRes: 0
version: 0
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: trunk/libwww-facebook-api-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/Makefile.PL?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/Makefile.PL (original)
+++ trunk/libwww-facebook-api-perl/Makefile.PL Sat Oct 18 16:15:14 2008
@@ -18,6 +18,11 @@
'LWP::UserAgent' => 0,
'Readonly' => 0,
},
+ EXTRA_META => <<'META',
+resources:
+ license: http://dev.perl.org/licenses/
+ repository: http://github.com/unobe/perl-wfa/
+META
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'WWW-Facebook-API-*' },
);
Modified: trunk/libwww-facebook-api-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/debian/changelog?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/debian/changelog (original)
+++ trunk/libwww-facebook-api-perl/debian/changelog Sat Oct 18 16:15:14 2008
@@ -1,3 +1,9 @@
+libwww-facebook-api-perl (0.4.14-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sat, 18 Oct 2008 18:14:17 +0200
+
libwww-facebook-api-perl (0.4.13-1) unstable; urgency=low
[ AGOSTINI Yves ]
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
use LWP::UserAgent;
use Time::HiRes qw(time);
@@ -25,6 +25,7 @@
FQL Friends Groups
Notifications Photos Profile
Users Marketplace Pages
+ SMS Application Admin
);
for (@namespaces) {
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Auth.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Auth.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Auth.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Auth.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
use Readonly;
Readonly my $DEFAULT_SLEEP => 15;
@@ -126,7 +126,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Auth version 0.4.13
+This document describes WWW::Facebook::API::Auth version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Canvas.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Canvas.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Canvas.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Canvas.pm Sat Oct 18 16:15:14 2008
@@ -9,7 +9,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get_fb_params {
my $self = shift;
@@ -99,7 +99,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Canvas version 0.4.13
+This document describes WWW::Facebook::API::Canvas version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Data.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Data.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Data.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Data.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get_cookies { return shift->base->call( 'data.getCookies', @_ ); }
sub set_cookie { return shift->base->call( 'data.setCookie', @_ ); }
@@ -24,7 +24,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Data version 0.4.13
+This document describes WWW::Facebook::API::Data version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Events.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Events.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Events.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Events.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get { return shift->base->call( 'events.get', @_ ) }
sub get_members { return shift->base->call( 'events.getMembers', @_ ) }
@@ -24,7 +24,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Events version 0.4.13
+This document describes WWW::Facebook::API::Events version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FBML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FBML.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FBML.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FBML.pm Sat Oct 18 16:15:14 2008
@@ -4,7 +4,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub refresh_img_src { return shift->base->call( 'fbml.refreshImgSrc', @_ ) }
sub refresh_ref_url { return shift->base->call( 'fbml.refreshRefUrl', @_ ) }
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::FBML version 0.4.13
+This document describes WWW::Facebook::API::FBML version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FQL.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FQL.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/FQL.pm Sat Oct 18 16:15:14 2008
@@ -9,7 +9,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
# always return an array reference. The value returned by Facebook is a hash
# reference when there are no results, so this shouldn't be a problem.
@@ -27,7 +27,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::FQL version 0.4.13
+This document describes WWW::Facebook::API::FQL version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Feed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Feed.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Feed.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Feed.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub publish_user_action {
return shift->base->call( 'feed.publishUserAction', @_ );
@@ -26,7 +26,7 @@
sub get_registered_template_bundle {
my $method =
- @_
+ @_ > 1
? 'feed.getRegisteredTemplateBundleById'
: 'feed.getRegisteredTemplateBundles';
@@ -58,7 +58,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Feed version 0.4.13
+This document describes WWW::Facebook::API::Feed version 0.4.14
=head1 SYNOPSIS
@@ -107,7 +107,7 @@
parameter required.
- $client->feed->publish_user_action(
+ $client->feed->register_template_bundle(
one_line_story_templates => 'JSON',
short_story_templates => 'JSON',
full_story_template => 'JSON',
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Friends.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Friends.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Friends.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Friends.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get { return shift->base->call( 'friends.get', @_ ) }
sub get_app_users { return shift->base->call( 'friends.getAppUsers', @_ ) }
@@ -26,7 +26,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Friends version 0.4.13
+This document describes WWW::Facebook::API::Friends version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Groups.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Groups.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Groups.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Groups.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get { return shift->base->call( 'groups.get', @_ ) }
sub get_members { return shift->base->call( 'groups.getMembers', @_ ) }
@@ -24,7 +24,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Groups version 0.4.13
+This document describes WWW::Facebook::API::Groups version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Marketplace.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Marketplace.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Marketplace.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Marketplace.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get_categories {
return shift->base->call( 'marketplace.getCategories', @_ );
@@ -46,7 +46,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Marketplace version 0.4.13
+This document describes WWW::Facebook::API::Marketplace version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Notifications.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Notifications.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Notifications.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Notifications.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get { return shift->base->call( 'notifications.get', @_ ) }
sub send { return shift->base->call( 'notifications.send', @_ ) } ## no critic
@@ -25,7 +25,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Notifications version 0.4.13
+This document describes WWW::Facebook::API::Notifications version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Pages.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Pages.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Pages.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Pages.pm Sat Oct 18 16:15:14 2008
@@ -9,7 +9,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get_info { return shift->base->call( 'pages.getInfo', @_ ) }
sub is_app_added { return shift->base->call( 'pages.isAppAdded', @_ ) }
@@ -25,7 +25,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Pages version 0.4.13
+This document describes WWW::Facebook::API::Pages version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Photos.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Photos.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Photos.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Photos.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub add_tag { return shift->base->call( 'photos.addTag', @_ ) }
sub create_album { return shift->base->call( 'photos.createAlbum', @_ ) }
@@ -28,7 +28,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Photos version 0.4.13
+This document describes WWW::Facebook::API::Photos version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Profile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Profile.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Profile.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Profile.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub set_fbml { return shift->base->call( 'profile.setFBML', @_ ) }
sub get_fbml { return shift->base->call( 'profile.getFBML', @_ ) }
@@ -34,7 +34,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Profile version 0.4.13
+This document describes WWW::Facebook::API::Profile version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Users.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Users.pm?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Users.pm (original)
+++ trunk/libwww-facebook-api-perl/lib/WWW/Facebook/API/Users.pm Sat Oct 18 16:15:14 2008
@@ -10,7 +10,7 @@
use strict;
use Carp;
-use version; our $VERSION = qv('0.4.13');
+use version; our $VERSION = qv('0.4.14');
sub get_info { return shift->base->call( 'users.getInfo', @_ ); }
@@ -45,7 +45,7 @@
=head1 VERSION
-This document describes WWW::Facebook::API::Users version 0.4.13
+This document describes WWW::Facebook::API::Users version 0.4.14
=head1 SYNOPSIS
Modified: trunk/libwww-facebook-api-perl/t/00.load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/t/00.load.t?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/t/00.load.t (original)
+++ trunk/libwww-facebook-api-perl/t/00.load.t Sat Oct 18 16:15:14 2008
@@ -4,7 +4,7 @@
# $Author$
# ex: set ts=8 sw=4 et
#########################################################################
-use Test::More tests => 16;
+use Test::More tests => 19;
BEGIN {
use_ok('WWW::Facebook::API');
Modified: trunk/libwww-facebook-api-perl/t/feed.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-facebook-api-perl/t/feed.t?rev=26148&op=diff
==============================================================================
--- trunk/libwww-facebook-api-perl/t/feed.t (original)
+++ trunk/libwww-facebook-api-perl/t/feed.t Sat Oct 18 16:15:14 2008
@@ -4,7 +4,7 @@
# $Author: david.romano $
# ex: set ts=8 sw=4 et
#########################################################################
-use Test::More tests => 3;
+use Test::More tests => 5;
use WWW::Facebook::API;
use strict;
use warnings;
@@ -24,3 +24,10 @@
is_deeply $api->feed->publish_templatized_action( actor_id => 2, title_template => '' ),
[ 'feed.publishTemplatizedAction', actor_id => 2, title_template => '' ],
'publish_templatized_action calls correctly';
+is_deeply $api->feed->get_registered_template_bundle( ),
+ [ 'feed.getRegisteredTemplateBundles' ],
+ 'get_registered_template_bundle calls correctly';
+is_deeply $api->feed->get_registered_template_bundle( template_bundle_id => 1 ),
+ [ 'feed.getRegisteredTemplateBundleById', template_bundle_id => 1 ],
+ 'get_registered_template_bundle calls correctly';
+
More information about the Pkg-perl-cvs-commits
mailing list