File Coverage

blib/lib/JSON/TypeInference/Type/Boolean.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package JSON::TypeInference::Type::Boolean;
2 3     3   1899 use strict;
  3         6  
  3         82  
3 3     3   14 use warnings;
  3         6  
  3         89  
4 3     3   2257 use parent qw(JSON::TypeInference::Type::Atom);
  3         924  
  3         18  
5              
6 3     3   1741 use Types::Serialiser;
  3         4508  
  3         254  
7              
8             sub name {
9 1     1 0 3   my ($class) = @_;
10 1         4   return 'boolean';
11             }
12              
13             sub accepts {
14 44     44 0 4068   my ($class, $data) = @_;
15 44         111   return Types::Serialiser::is_bool($data);
16             }
17              
18             1;
19             __END__
20            
21             =encoding utf-8
22            
23             =head1 NAME
24            
25             JSON::TypeInference::Type::Boolean - JSON boolean type
26            
27             =head1 DESCRIPTION
28            
29             C< JSON::TypeInference::Type::Boolean > represents JSON boolean type.
30            
31             It is a value type, and so has no parameters.
32            
33             =head1 AUTHOR
34            
35             aereal E<lt>aereal@aereal.orgE<gt>
36            
37             =cut
38            
39