File Coverage

blib/lib/Facebook/Graph/Role/Uri.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package Facebook::Graph::Role::Uri;
2             $Facebook::Graph::Role::Uri::VERSION = '1.1204';
3 4     4   27594 use Moo::Role;
  4         10  
  4         24  
4 4     4   1264 use URI;
  4         8  
  4         351  
5              
6             sub uri {
7 4     4 0 38 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 5     5 0 1362 my ($self, $path) = @_;
17 5         51 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.1204
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