File Coverage

blib/lib/PPIx/Regexp/Token/GroupType/BranchReset.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             =head1 NAME
2              
3             PPIx::Regexp::Token::GroupType::BranchReset - Represent a branch reset specifier
4              
5             =head1 SYNOPSIS
6              
7             use PPIx::Regexp::Dumper;
8             PPIx::Regexp::Dumper->new( 'qr{(?|(foo)|(bar))}smx' )
9             ->print();
10              
11             =head1 INHERITANCE
12              
13             C is a
14             L.
15              
16             C has no descendants.
17              
18             =head1 DESCRIPTION
19              
20             This token represents the specifier for a branch reset - namely the
21             C that comes after the left parenthesis.
22              
23             =head1 METHODS
24              
25             This class provides no public methods beyond those provided by its
26             superclass.
27              
28             =cut
29              
30             package PPIx::Regexp::Token::GroupType::BranchReset;
31              
32 9     9   59 use strict;
  9         25  
  9         258  
33 9     9   47 use warnings;
  9         19  
  9         238  
34              
35 9     9   43 use base qw{ PPIx::Regexp::Token::GroupType };
  9         18  
  9         720  
36              
37 9     9   55 use PPIx::Regexp::Constant qw{ @CARP_NOT };
  9         18  
  9         923  
38              
39             our $VERSION = '0.087_01';
40              
41             =begin comment
42              
43             # Return true if the token can be quantified, and false otherwise
44             # sub can_be_quantified { return };
45              
46             {
47             my %explanation = (
48             '?|' => 'Re-use capture group numbers',
49             );
50              
51             sub __explanation {
52             return \%explanation;
53             }
54             }
55              
56             sub perl_version_introduced {
57             return '5.009005';
58             }
59              
60             sub __defining_string {
61             return '?|';
62             }
63              
64             =end comment
65              
66             =cut
67              
68 9         606 use constant DEF => {
69             '?|' => {
70             expl => 'Re-use capture group numbers',
71             intro => '5.009005',
72             },
73 9     9   55 };
  9         20  
74              
75             __PACKAGE__->__setup_class();
76              
77             1;
78              
79             __END__