File Coverage

blib/lib/WWW/Facebook/API/Video.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             #######################################################################
2             # ex: set ts=8 sw=4 et
3             #########################################################################
4             package WWW::Facebook::API::Video;
5              
6 34     34   204 use warnings;
  34         565  
  34         1094  
7 34     34   183 use strict;
  34         72  
  34         981  
8 34     34   179 use Carp;
  34         82  
  34         10046  
9              
10 1     1 1 26 sub get_upload_limits { return shift->base->call( 'video.getUploadLimits', @_ ) }
11             sub upload {
12 3     3 1 80 my $base = shift->base;
13              
14 3         81 $base->server_uri('http://api-video.facebook.com/restserver.php');
15 3         77 my $response = $base->call( 'video.upload', format => $base->format, @_ );
16 3         95 $base->server_uri('http://api.facebook.com/restserver.php');
17              
18 3         15 return $response;
19             }
20              
21             1; # Magic true value required at end of module
22             __END__