@@ -11,6 +11,7 @@ WriteMakefile( PREREQ_PM => { 'Test::More' => 0, 'WWW::Facebook::API' => 0, + 'Scalar::Util' => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'Catalyst-Plugin-Facebook-*' }, Makefile.PL @@ -7,12 +7,14 @@ use WWW::Facebook::API; our $VERSION = '0.1'; +use Scalar::Util qw(); + # why not *fb = \&facebook; sub facebook { my ($c) = @_; - if (! ($c->{'facebook'} and $c->{'facebook'}->isa('WWW::Facebook::API')) ) { + unless ( $c->{'facebook'} and Scalar::Util::blessed($c->{'facebook'}) and $c->{'facebook'}->isa('WWW::Facebook::API') ) { $c->{'facebook'} = WWW::Facebook::API->new( 'desktop' => 0, 'format' => 'JSON', lib/Catalyst/Plugin/Facebook.pm c1c2d09ba8b08353bc41ccf9fdb89a6f3d994e98 Andreas Marienborg andreas.marienborg@gmail.com http://github.com/ngerakines/perl-catalyst-plugin-facebook/commit/d043602c9d1dd7ee31bced5681cc9561e155e8a8 d043602c9d1dd7ee31bced5681cc9561e155e8a8 2009-08-23T14:26:20-07:00 2009-08-11T05:37:28-07:00 A fix that actually works Signed-off-by: Nick Gerakines <nick@gerakines.net> f5dfc27ac6010bb6de323cab3e55086fc693e5a4 Nick Gerakines nick@gerakines.net