File Coverage

blib/lib/PPIx/Regexp/Structure/Script_Run.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             package PPIx::Regexp::Structure::Script_Run;
2              
3 9     9   157 use 5.006;
  9         28  
4              
5 9     9   40 use strict;
  9         22  
  9         219  
6 9     9   35 use warnings;
  9         15  
  9         395  
7              
8 9     9   42 use base qw{ PPIx::Regexp::Structure };
  9         14  
  9         734  
9              
10 9     9   134 use PPIx::Regexp::Constant qw{ @CARP_NOT };
  9         13  
  9         992  
11              
12             our $VERSION = '0.091';
13              
14             1;
15              
16             __END__
17              
18             =head1 NAME
19              
20             PPIx::Regexp::Structure::Script_Run - Represent a script run group
21              
22             =head1 SYNOPSIS
23              
24             use PPIx::Regexp::Dumper;
25             PPIx::Regexp::Dumper->new( 'qr{(*script_run:\d)}' )
26             ->print();
27              
28             =head1 INHERITANCE
29              
30             C<PPIx::Regexp::Structure::Script_Run> is a
31             L<PPIx::Regexp::Structure|PPIx::Regexp::Structure>.
32              
33             C<PPIx::Regexp::Structure::Script_Run> has no descendants.
34              
35             =head1 DESCRIPTION
36              
37             This class represents a script run group. That is, the construction
38             C<(+script_run:...)>, C<(*script_run:...)>, or C<(*sr:...)>. The first
39             form was added in Perl 5.27.8 but retracted in favor of the second ant
40             third forms (which are equivalent) in Perl 5.27.9.
41              
42             If this construction does not make it into Perl 5.28, this class will be
43             retracted.
44              
45             =head1 METHODS
46              
47             This class provides no public methods beyond those provided by its
48             superclass.
49              
50             =head1 SUPPORT
51              
52             Support is by the author. Please file bug reports at
53             L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-Regexp>,
54             L<https://github.com/trwyant/perl-PPIx-Regexp/issues>, or in
55             electronic mail to the author.
56              
57             =head1 AUTHOR
58              
59             Thomas R. Wyant, III F<wyant at cpan dot org>
60              
61             =head1 COPYRIGHT AND LICENSE
62              
63             Copyright (C) 2018-2023, 2025 by Thomas R. Wyant, III
64              
65             This program is free software; you can redistribute it and/or modify it
66             under the same terms as Perl 5.10.0. For more details, see the full text
67             of the licenses in the directory LICENSES.
68              
69             This program is distributed in the hope that it will be useful, but
70             without any warranty; without even the implied warranty of
71             merchantability or fitness for a particular purpose.
72              
73             =cut
74              
75             # ex: set textwidth=72 :