File Coverage

blib/lib/WWW/Bebo/API/Photos.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 6 6 100.0
total 34 34 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::Photos;
8              
9 21     21   113 use warnings;
  21         42  
  21         654  
10 21     21   109 use strict;
  21         38  
  21         559  
11 21     21   98 use Carp;
  21         36  
  21         1158  
12              
13 21     21   117 use version; our $VERSION = qv('0.0.03');
  21         49  
  21         125  
14              
15 1     1 1 27 sub add_tag { return shift->base->call( 'photos.addTag', @_ ) }
16 1     1 1 23 sub create_album { return shift->base->call( 'photos.createAlbum', @_ ) }
17 1     1 1 21 sub get { return shift->base->call( 'photos.get', @_ ) }
18 1     1 1 22 sub get_albums { return shift->base->call( 'photos.getAlbums', @_ ) }
19 1     1 1 25 sub get_tags { return shift->base->call( 'photos.getTags', @_ ) }
20 1     1 1 30 sub upload { return shift->base->call( 'photos.upload', @_ ) }
21              
22             1; # Magic true value required at end of module
23             __END__