File Coverage

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


line stmt bran cond sub pod time code
1 2     2   57216 use 5.010000;
  2         7  
2 2     2   1050 use strict;
  2         3  
  2         50  
3 2     2   20 use warnings;
  2         3  
  2         61  
4 2     2   1779 use utf8;
  2         23  
  2         11  
5              
6             package Regexp::Grammars::Common::String;
7              
8             our $VERSION = '1.000002';
9              
10             # ABSTRACT: Some basic String parsing Rules for Regexp::Grammars
11              
12             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
13              
14 2     2   2126 use Regexp::Grammars;
  2         28038  
  2         14  
15              
16             # Needs to be declared and R:G:1.043 forgets to
17             # Unrelated to English.pm $MATCH
18             our $MATCH; ## no critic (Variables::ProhibitMatchVars)
19              
20             ## no critic (RegularExpressions Documentation Variables::ProhibitUnusedVarsStricter)
21             my $grammar = qr{
22            
23              
24            
25             "
26             <[MATCH=([^"\\]*)]>+
27             (
28             \\<[MATCH=(.)]>
29             <[MATCH=([^"\\]*)]>
30             )*
31             "
32            
33              
34             }x;
35              
36             1;
37              
38             __END__