File Coverage

blib/lib/WWW/Bebo/API/Users.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 5 5 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1             #######################################################################
2             # $Date$
3             # $Revision$
4             # $Author$
5             # ex: set ts=8 sw=4 et
6             #########################################################################
7             package WWW::Bebo::API::Users;
8              
9 21     21   109 use warnings;
  21         38  
  21         563  
10 21     21   100 use strict;
  21         43  
  21         531  
11 21     21   95 use Carp;
  21         33  
  21         1268  
12              
13 21     21   149 use version; our $VERSION = qv('0.0.03');
  21         49  
  21         108  
14              
15 1     1 1 24 sub get_info { return shift->base->call( 'users.getInfo', @_ ); }
16              
17             sub get_logged_in_user {
18 1     1 1 20 return shift->base->call( 'users.getLoggedInUser', @_ );
19             }
20              
21             sub has_app_permission {
22 1     1 1 27 return shift->base->call( 'users.hasAppPermission', @_ );
23             }
24              
25             sub is_app_added {
26 1     1 1 27 return shift->base->call( 'users.isAppAdded', @_ );
27             }
28              
29             sub set_status {
30 1     1 1 35 return shift->base->call( 'users.setStatus', @_ );
31             }
32              
33             1; # Magic true value required at end of module
34             __END__