File Coverage

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