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   17 use strict;
  5         5  
  5         104  
4 5     5   14 use warnings;
  5         4  
  5         250  
5              
6             sub is_boolean{
7 20653104     20653104 0 12648269 my ($value) = @_;
8              
9 20653104   50     47191417 return (ref($value) || '') eq 'JSON::PP::Boolean';
10             }
11              
12             1;