File Coverage

lib/Regexp/Grammars/Common/String.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1 2     2   74371 use 5.010000;
  2         8  
  2         98  
2 2     2   11 use strict;
  2         3  
  2         61  
3 2     2   21 use warnings;
  2         5  
  2         53  
4 2     2   1691 use utf8;
  2         19  
  2         8  
5              
6             package Regexp::Grammars::Common::String;
7              
8             our $VERSION = '1.000001';
9              
10             # ABSTRACT: Some basic String parsing Rules for Regexp::Grammars
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14 2     2   1950 use Regexp::Grammars;
  2         34627  
  2         15  
15              
16             ## no critic (RegularExpressions Documentation Variables::ProhibitUnusedVarsStricter)
17             my $grammar = qr{
18            
19              
20            
21             "
22             <[MATCH=([^"\\]*)]>+
23             (
24             \\<[MATCH=(.)]>
25             <[MATCH=([^"\\]*)]>
26             )*
27             "
28            
29              
30             }x;
31              
32             1;
33              
34             __END__