File Coverage

lib/JMAP/Validation/Tests/Array.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package JMAP::Validation::Tests::Array;
2              
3 11     11   35 use strict;
  11         14  
  11         244  
4 11     11   48 use warnings;
  11         12  
  11         529  
5              
6             sub is_array {
7 995588     995588 0 778865 my ($value) = @_;
8              
9 995588         1992209 return ref($value) eq 'ARRAY';
10             }
11              
12             1;