File Coverage

blib/lib/Device/WallyHome/Role/Validator.pm
Criterion Covered Total %
statement 10 10 100.0
branch 2 4 50.0
condition 1 2 50.0
subroutine 3 3 100.0
pod n/a
total 16 19 84.2


line stmt bran cond sub pod time code
1             package Device::WallyHome::Role::Validator;
2 2     2   1522 use Moose::Role;
  2         4  
  2         16  
3 2     2   8814 use MooseX::AttributeShortcuts;
  2         4  
  2         20  
4              
5             our $VERSION = '0.21.3';
6              
7              
8             #== PRIVATE METHODS ============================================================
9              
10             sub _checkRequiredScalarParam {
11 3     3   4 my ($self, $value, $paramName) = @_;
12              
13 3   50     11 $paramName //= 'parameter';
14              
15 3 50       5 die $paramName . ' required' unless defined $value;
16              
17 3 50       9 die 'valid ' . $paramName . ' required' if ref($value);
18             }
19              
20             1;