File Coverage

blib/lib/WWW/Bebo/API/FQL.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             # $Date$
2             # $Revision$
3             # $Author$
4             # ex: set ts=8 sw=4 et
5             #########################################################################
6             package WWW::Bebo::API::FQL;
7              
8 21     21   116 use warnings;
  21         35  
  21         626  
9 21     21   105 use strict;
  21         40  
  21         567  
10 21     21   102 use Carp;
  21         45  
  21         1214  
11              
12 21     21   118 use version; our $VERSION = qv('0.0.03');
  21         62  
  21         153  
13              
14             # always return an array reference. The value returned by Bebo is a hash
15             # reference when there are no results, so this shouldn't be a problem.
16             sub query {
17 0     0 1   my $self = shift;
18 0           return $self->base->call( 'fql.query', @_ );
19             }
20              
21             1; # Magic true value required at end of module
22             __END__