File Coverage

blib/lib/Megaport/Session.pm
Criterion Covered Total %
statement 23 27 85.1
branch 0 2 0.0
condition n/a
subroutine 8 9 88.8
pod 0 1 0.0
total 31 39 79.4


line stmt bran cond sub pod time code
1             package Megaport::Session;
2              
3 3     3   28 use 5.10.0;
  3         8  
4 3     3   11 use strict;
  3         3  
  3         47  
5 3     3   8 use warnings;
  3         3  
  3         63  
6              
7 3     3   9 use Carp qw(croak);
  3         7  
  3         151  
8 3     3   918 use Megaport::Ports;
  3         4  
  3         61  
9 3     3   811 use Megaport::Services;
  3         6  
  3         61  
10 3     3   987 use Megaport::Locations;
  3         5  
  3         239  
11              
12             use Class::Tiny qw(client errstr), {
13 0           ports => sub { Megaport::Ports->new(client => shift->client) },
14 0           services => sub { Megaport::Services->new(client => shift->client) },
15 0           locations => sub { Megaport::Locations->new(client => shift->client) }
16 3     3   12 };
  3         3  
  3         24  
17              
18             sub BUILD {
19 0 0   0 0   croak __PACKAGE__ . '->new: client not passed to constructor' unless shift->client;
20             }
21              
22             1;
23             __END__