File Coverage

blib/lib/WWW/TMDB/API/Person.pm
Criterion Covered Total %
statement 6 18 33.3
branch n/a
condition n/a
subroutine 2 6 33.3
pod 0 4 0.0
total 8 28 28.5


line stmt bran cond sub pod time code
1             package WWW::TMDB::API::Person;
2              
3 1     1   8 use strict;
  1         2  
  1         49  
4 1     1   7 use warnings;
  1         2  
  1         319  
5              
6             our $VERSION = '0.04';
7              
8             sub info {
9 0     0 0   my $self = shift;
10 0           my (%params) = @_;
11 0           $self->api->send_api( [ 'person', $params{ID} ], { ID => 1 }, \%params );
12             }
13              
14             sub credits {
15 0     0 0   my $self = shift;
16 0           my (%params) = @_;
17 0           $self->api->send_api( [ 'person', $params{ID}, 'credits' ],
18             { ID => 1, language => 0 }, \%params );
19             }
20              
21             sub images {
22 0     0 0   my $self = shift;
23 0           my (%params) = @_;
24 0           $self->api->send_api( [ 'person', $params{ID}, 'images' ],
25             { ID => 1 }, \%params );
26             }
27              
28             sub search {
29 0     0 0   my $self = shift;
30 0           my (%params) = @_;
31 0           $self->api->send_api( [ 'search', 'person' ],
32             { query => 1, page => 0 }, \%params );
33             }
34             1;
35