File Coverage

lib/Webservice/OVH/Hosting.pm
Criterion Covered Total %
statement 12 22 54.5
branch 0 4 0.0
condition n/a
subroutine 4 6 66.6
pod 0 1 0.0
total 16 33 48.4


line stmt bran cond sub pod time code
1             package Webservice::OVH::Hosting;
2              
3             =encoding utf-8
4              
5             =head1 NAME
6              
7             Webservice::OVH::Hosting
8              
9             =head1 SYNOPSIS
10              
11             =head1 DESCRIPTION
12              
13             Gives access to hostings
14              
15             =head1 METHODS
16              
17             =cut
18              
19 36     36   286 use strict;
  36         92  
  36         1258  
20 36     36   217 use warnings;
  36         90  
  36         1176  
21 36     36   198 use Carp qw{ carp croak };
  36         99  
  36         2974  
22              
23             our $VERSION = 0.46;
24              
25 36     36   18155 use Webservice::OVH::Hosting::Web;
  36         110  
  36         5217  
26              
27             =head2 _new
28              
29             Internal Method to create the hosting object.
30             This method is not ment to be called external.
31              
32             =over
33              
34             =item * Parameter: $api_wrapper - ovh api wrapper object, $module - root object
35              
36             =item * Return: L<Webservice::OVH::Order>
37              
38             =item * Synopsis: Webservice::OVH::Order->_new($ovh_api_wrapper, $self);
39              
40             =back
41              
42             =cut
43              
44             sub _new {
45              
46 0     0     my ( $class, %params ) = @_;
47              
48 0 0         die "Missing module" unless $params{module};
49 0 0         die "Missing wrapper" unless $params{wrapper};
50              
51 0           my $module = $params{module};
52 0           my $api_wrapper = $params{wrapper};
53            
54 0           my $web = Webservice::OVH::Hosting::Web->_new( wrapper => $api_wrapper, module => $module );
55              
56 0           my $self = bless { _module => $module, _api_wrapper => $api_wrapper, _web => $web }, $class;
57              
58 0           return $self;
59             }
60              
61             sub web {
62              
63 0     0 0   my ($self) = @_;
64              
65 0           return $self->{_web};
66             }
67              
68             1;