File Coverage

lib/API/DirectAdmin/Component.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 2 0.0
total 17 22 77.2


line stmt bran cond sub pod time code
1             # Constructor class for API-DirectAdmin components
2              
3             package API::DirectAdmin::Component;
4              
5 1     1   10 use Modern::Perl '2010';
  1         2  
  1         10  
6 1     1   355 use Carp;
  1         2  
  1         458  
7              
8             our $VERSION = 0.02;
9              
10             sub new {
11 4     4 0 13 my ( $class, %params ) = @_;
12 4   33     25 $class = ref $class || $class;
13              
14 4 50       13 confess "Required API::DirectAdmin object!" unless $params{directadmin};
15              
16 4         44 return bless \%params, $class;
17             }
18              
19             # API::DirectAdmin object
20 13     13 0 66 sub directadmin { $_[0]->{directadmin} }
21              
22             1;