File Coverage

blib/lib/Flickr/API2/User.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Flickr::API2::User;
2 4     4   27 use 5.12.0;
  4         8  
3 4     4   15 use warnings;
  4         2  
  4         65  
4 4     4   41 use Moo;
  4         9  
  4         19  
5             extends 'Flickr::API2::Base';
6              
7             =head2 NSID
8              
9             Accessor for NSID
10              
11             =cut
12              
13             has 'NSID' => (
14             is => 'rw',
15             );
16              
17             =head2 username
18              
19             accessor for username
20              
21             =cut
22              
23             has 'username' => (
24             is => 'rw',
25             );
26              
27             =head2 getInfo
28              
29             Returns the info for this user by called flickr.people.getInfo with our ID.
30              
31             =cut
32              
33             sub getInfo {
34 1     1 1 1040 my $self = shift;
35 1         10 $self->api->people->getInfo($self->NSID);
36             }
37              
38             =head2 getPublicPhotos
39              
40             Returns the user's public photos - see People::getPublicPhotos() for more info.
41              
42             =cut
43              
44             sub getPublicPhotos {
45 1     1 1 870 my ($self, %args) = @_;
46 1         17 $self->api->people->getPublicPhotos($self->NSID, %args);
47             }
48              
49             1;