File Coverage

blib/lib/Clustericious/Client/Object/Params.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Clustericious::Client::Object::Params;
2              
3 2     2   4299 use strict;
  2         4  
  2         78  
4 2     2   11 use warnings;
  2         5  
  2         64  
5 2     2   57 use base 'Clustericious::Client::Object';
  2         5  
  2         771  
6              
7             # ABSTRACT: object parameters
8             our $VERSION = '0.85'; # VERSION
9              
10              
11             sub new
12             {
13 1     1 1 828 my $class = shift;
14 1         2 my ($paramlist) = @_;
15              
16 1         3 $class->SUPER::new({ map { $_->{name} => $_->{value} } @$paramlist });
  2         13  
17             }
18              
19             1;
20              
21             __END__