File Coverage

blib/lib/Facebook/Graph/Role/Uri.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             package Facebook::Graph::Role::Uri;
2             $Facebook::Graph::Role::Uri::VERSION = '1.1202';
3 4     4   28940 use Moo::Role;
  4         7  
  4         23  
4 4     4   990 use URI;
  4         7  
  4         383  
5              
6             sub uri {
7 0     0 0   return URI->new('https://graph.facebook.com')
8             }
9              
10             has api_version => (
11             is => 'rw',
12             default => 'v2.8',
13             );
14              
15             sub generate_versioned_path {
16 0     0 0   my ($self, $path) = @_;
17 0           return join('/', $self->api_version, $path);
18             }
19              
20              
21             1;
22              
23             =head1 NAME
24              
25             Facebook::Graph::Role::Uri - The base URI for the Facebook Graph API.
26              
27             =head1 VERSION
28              
29             version 1.1202
30              
31             =head1 DESCRIPTION
32              
33             Provides a C<uri> method in any class which returns a L<URI> object that points to the Facebook Graph API.
34              
35             =head1 LEGAL
36              
37             Facebook::Graph is Copyright 2010 - 2012 Plain Black Corporation (L<http://www.plainblack.com>) and is licensed under the same terms as Perl itself.
38              
39             =cut