File Coverage

blib/lib/WWW/Bebo/API/Pages.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 4 4 100.0
total 28 28 100.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::Pages;
7              
8 21     21   116 use warnings;
  21         41  
  21         595  
9 21     21   111 use strict;
  21         38  
  21         657  
10 21     21   129 use Carp;
  21         44  
  21         1312  
11              
12 21     21   123 use version; our $VERSION = qv('0.0.03');
  21         45  
  21         121  
13              
14 1     1 1 29 sub get_info { return shift->base->call( 'pages.getInfo', @_ ) }
15 1     1 1 23 sub is_app_added { return shift->base->call( 'pages.isAppAdded', @_ ) }
16 1     1 1 23 sub is_admin { return shift->base->call( 'pages.isAdmin', @_ ) }
17 1     1 1 20 sub is_fan { return shift->base->call( 'pages.isFan', @_ ) }
18              
19             1; # Magic true value required at end of module
20             __END__