File Coverage

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


line stmt bran cond sub pod time code
1             package Flickr::API2::User;
2 4     4   19 use Mouse;
  4         6  
  4         24  
3             extends 'Flickr::API2::Base';
4              
5             has 'NSID' => (
6             is => 'rw',
7             );
8              
9             has 'username' => (
10             is => 'rw',
11             );
12              
13             =head2 getInfo
14              
15             Returns the info for this user by called flickr.people.getInfo with our ID.
16              
17             =cut
18              
19             sub getInfo {
20 1     1 1 1614 my $self = shift;
21 1         12 $self->api->people->getInfo($self->NSID);
22             }
23              
24             =head2 getPublicPhotos
25              
26             Returns the user's public photos - see People::getPublicPhotos() for more info.
27              
28             =cut
29              
30             sub getPublicPhotos {
31 1     1 1 832 my ($self, %args) = @_;
32 1         10 $self->api->people->getPublicPhotos($self->NSID, %args);
33             }
34              
35             __PACKAGE__->meta->make_immutable;
36             1;