File Coverage

lib/JMAP/Validation.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;
2             # ABSTRACT: Validation checking for JMAP
3              
4 10     10   3453 use Test2::Bundle::Extended;
  10         823416  
  10         57  
5              
6 10         795 use Test2::Compare qw{
7             compare
8             strict_convert
9 10     10   4904 };
  10         12  
10              
11             sub validate {
12 276634     276634 0 250036 my ($got, $expected) = @_;
13              
14 276634         513248 return !compare($got, $expected, \&strict_convert);
15             }
16              
17             1;