File Coverage

blib/lib/JSON/TypeInference/Type/String.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition 3 3 100.0
subroutine 6 6 100.0
pod 0 2 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package JSON::TypeInference::Type::String;
2 4     4   2029 use strict;
  4         8  
  4         96  
3 4     4   18 use warnings;
  4         9  
  4         97  
4 4     4   20 use parent qw(JSON::TypeInference::Type::Atom);
  4         5  
  4         21  
5              
6 4     4   210 use Scalar::Util qw(looks_like_number);
  4         8  
  4         481  
7              
8             sub name {
9 6     6 0 9   my ($class) = @_;
10 6         30   return 'string';
11             }
12              
13             sub accepts {
14 12     12 0 2291   my ($class, $data) = @_;
15 12   100     154   return !ref($data) && defined($data) && !looks_like_number($data);
16             }
17              
18             1;
19             __END__
20            
21             =encoding utf-8
22            
23             =head1 NAME
24            
25             JSON::TypeInference::Type::String - JSON string type
26            
27             =head1 DESCRIPTION
28            
29             C< JSON::TypeInference::Type::String > represents JSON string 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