File Coverage

lib/JMAP/Validation/Tests/Number.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition 0 2 0.0
subroutine 2 3 66.6
pod 0 1 0.0
total 8 14 57.1


line stmt bran cond sub pod time code
1             package JMAP::Validation::Tests::Number;
2              
3 5     5   16 use strict;
  5         5  
  5         103  
4 5     5   13 use warnings;
  5         5  
  5         240  
5              
6             sub is_number {
7 0     0 0   my ($value) = @_;
8              
9 0   0       return (ref($value) || '') eq 'JSON::Typist::Number';
10             }
11              
12             1;