File Coverage

blib/lib/Regexp/Common/json.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Regexp::Common::json;
2              
3             our $DATE = '2018-03-25'; # DATE
4             our $VERSION = '0.001'; # VERSION
5              
6 1     1   57440 use strict;
  1         5  
  1         22  
7 1     1   4 use warnings;
  1         2  
  1         21  
8              
9 1     1   3 use Regexp::Common 'pattern';
  1         2  
  1         6  
10 1     1   128344 use Regexp::Pattern::JSON;
  1         366  
  1         145  
11              
12             my $re = \%Regexp::Pattern::JSON::RE;
13              
14             for my $patname (sort keys %$re) {
15             pattern(
16             name => ['json', $patname],
17             create => $re->{$patname}{pat},
18             );
19             }
20              
21             1;
22             # ABSTRACT: Regexp patterns to match JSON
23              
24             __END__