File Coverage

blib/lib/PPIx/Regexp/Token/GroupType/Script_Run.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1             package PPIx::Regexp::Token::GroupType::Script_Run;
2              
3 9     9   550 use 5.006;
  9         37  
4              
5 9     9   38 use strict;
  9         15  
  9         184  
6 9     9   30 use warnings;
  9         13  
  9         377  
7              
8 9     9   39 use base qw{ PPIx::Regexp::Token::GroupType };
  9         13  
  9         685  
9              
10 9     9   42 use PPIx::Regexp::Constant qw{ @CARP_NOT };
  9         12  
  9         780  
11              
12             our $VERSION = '0.091';
13              
14 9     9   39 use constant EXPL => 'All characters must be in same script';
  9         13  
  9         756  
15              
16 9         691 use constant DEF => {
17             '+script_run:' => {
18             expl => EXPL,
19             intro => '5.027008',
20             remov => '5.027009',
21             },
22             '*script_run:' => {
23             expl => EXPL,
24             intro => '5.027009',
25             },
26             '*sr:' => {
27             expl => EXPL,
28             intro => '5.027009',
29             },
30 9     9   36 };
  9         11  
31              
32             __PACKAGE__->__setup_class();
33              
34             1;
35              
36             __END__
37              
38             =head1 NAME
39              
40             PPIx::Regexp::Token::GroupType::Script_Run - Represent a script run specifier
41              
42             =head1 SYNOPSIS
43              
44             use PPIx::Regexp::Dumper;
45             PPIx::Regexp::Dumper->new( 'qr{(*script_run:\d)}' )
46             ->print();
47              
48             =head1 INHERITANCE
49              
50             C<PPIx::Regexp::Token::GroupType::Script_Run> is a
51             L<PPIx::Regexp::Token::GroupType|PPIx::Regexp::Token::GroupType>.
52              
53             C<PPIx::Regexp::Token::GroupType::Script_Run> has no descendants.
54              
55             =head1 DESCRIPTION
56              
57             This token represents the specifier for a script run - namely the
58             C<'+script_run:'>, C<'*script_run:'>, or C<'*sr:'> that comes after the
59             left parenthesis. The first form was added in Perl 5.27.8 but retracted
60             in favor of the second ant third forms (which are equivalent) in Perl
61             5.27.9.
62              
63             If this construction does not make it into Perl 5.28, this class will be
64             retracted.
65              
66             =head1 METHODS
67              
68             This class provides no public methods beyond those provided by its
69             superclass.
70              
71             =head1 SUPPORT
72              
73             Support is by the author. Please file bug reports at
74             L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-Regexp>,
75             L<https://github.com/trwyant/perl-PPIx-Regexp/issues>, or in
76             electronic mail to the author.
77              
78             =head1 AUTHOR
79              
80             Thomas R. Wyant, III F<wyant at cpan dot org>
81              
82             =head1 COPYRIGHT AND LICENSE
83              
84             Copyright (C) 2018-2023, 2025 by Thomas R. Wyant, III
85              
86             This program is free software; you can redistribute it and/or modify it
87             under the same terms as Perl 5.10.0. For more details, see the full text
88             of the licenses in the directory LICENSES.
89              
90             This program is distributed in the hope that it will be useful, but
91             without any warranty; without even the implied warranty of
92             merchantability or fitness for a particular purpose.
93              
94             =cut
95              
96             # ex: set textwidth=72 :