File Coverage

lib/JMAP/Validation/Tests/Boolean.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition 1 2 50.0
subroutine 3 3 100.0
pod 0 1 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package JMAP::Validation::Tests::Boolean;
2              
3 5     5   20 use strict;
  5         6  
  5         135  
4 5     5   18 use warnings;
  5         6  
  5         288  
5              
6             sub is_boolean{
7 20653104     20653104 0 13005120 my ($value) = @_;
8              
9 20653104   50     47489049 return (ref($value) || '') eq 'JSON::PP::Boolean';
10             }
11              
12             1;