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   39 use strict;
  11         13  
  11         234  
4 11     11   35 use warnings;
  11         11  
  11         480  
5              
6             sub is_array {
7 995588     995588 0 696758 my ($value) = @_;
8              
9 995588         1926757 return ref($value) eq 'ARRAY';
10             }
11              
12             1;