File Coverage

blib/lib/TMDB.pm
Criterion Covered Total %
statement 52 52 100.0
branch n/a
condition n/a
subroutine 22 22 100.0
pod 9 9 100.0
total 83 83 100.0


line stmt bran cond sub pod time code
1             package TMDB;
2              
3             #######################
4             # LOAD MODULES
5             #######################
6 3     3   851535 use strict;
  3         6  
  3         140  
7 3     3   16 use warnings FATAL => 'all';
  3         7  
  3         192  
8 3     3   16 use Carp qw(croak carp);
  3         4  
  3         263  
9              
10             #######################
11             # VERSION
12             #######################
13             our $VERSION = '1.3.0';
14              
15             #######################
16             # LOAD CPAN MODULES
17             #######################
18 3     3   1422 use Object::Tiny qw(session);
  3         1451  
  3         20  
19              
20             #######################
21             # LOAD DIST MODULES
22             #######################
23 3     3   2011 use TMDB::Genre;
  3         12  
  3         41  
24 3     3   2103 use TMDB::Movie;
  3         12  
  3         36  
25 3     3   1526 use TMDB::TV;
  3         9  
  3         21  
26 3     3   1327 use TMDB::Config;
  3         10  
  3         18  
27 3     3   1300 use TMDB::Person;
  3         10  
  3         20  
28 3     3   1508 use TMDB::Search;
  3         9  
  3         23  
29 3     3   1302 use TMDB::Company;
  3         9  
  3         20  
30 3     3   86 use TMDB::Session;
  3         4  
  3         8  
31 3     3   1399 use TMDB::Collection;
  3         10  
  3         21  
32              
33             #######################
34             # PUBLIC METHODS
35             #######################
36              
37             ## ====================
38             ## CONSTRUCTOR
39             ## ====================
40             sub new {
41 1     1 1 233737 my ( $class, @args ) = @_;
42 1         4 my $self = {};
43 1         3 bless $self, $class;
44              
45             # Init Session
46 1         11 $self->{session} = TMDB::Session->new(@args);
47 1         5 return $self;
48             } ## end sub new
49              
50             ## ====================
51             ## TMDB OBJECTS
52             ## ====================
53             sub collection {
54 1     1 1 4570 return TMDB::Collection->new(
55             session => shift->session,
56             @_
57             );
58             } ## end sub collection
59 1     1 1 1079 sub company { return TMDB::Company->new( session => shift->session, @_ ); }
60 1     1 1 329 sub config { return TMDB::Config->new( session => shift->session, @_ ); }
61 1     1 1 2352 sub genre { return TMDB::Genre->new( session => shift->session, @_ ); }
62 1     1 1 11071 sub movie { return TMDB::Movie->new( session => shift->session, @_ ); }
63 1     1 1 45 sub tv { return TMDB::TV->new( session => shift->session, @_ ); }
64 1     1 1 2449 sub person { return TMDB::Person->new( session => shift->session, @_ ); }
65 1     1 1 3107 sub search { return TMDB::Search->new( session => shift->session, @_ ); }
66              
67             #######################
68             1;
69              
70             __END__