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   1599 use strict;
  3         5  
  3         73  
3 3     3   15 use warnings;
  3         5  
  3         77  
4 3     3   2206 use parent qw(JSON::TypeInference::Type::Atom);
  3         1047  
  3         17  
5              
6 3     3   1579 use Types::Serialiser;
  3         4665  
  3         260  
7              
8             sub name {
9 1     1 0 2   my ($class) = @_;
10 1         4   return 'boolean';
11             }
12              
13             sub accepts {
14 44     44 0 3018   my ($class, $data) = @_;
15 44         108   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