File Coverage

blib/lib/PPIx/Regexp/Token/GroupType/Code.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

=head1 NAME

PPIx::Regexp::Token::GroupType::Code - Represent one of the embedded code indicators

=head1 SYNOPSIS

 use PPIx::Regexp::Dumper;
 PPIx::Regexp::Dumper->new( 'qr{(?{print "hello world!\n")}smx' )
     ->print();

=head1 INHERITANCE

C is a
L.

C has no descendants.

=head1 DESCRIPTION

This method represents one of the embedded code indicators, either '?'
or '??', in the zero-width assertion

 (?{ print "Hello, world!\n" })

or the old-style deferred expression syntax

 my $foo;
 $foo = qr{ foo (??{ $foo }) }smx;

=head1 METHODS

This class provides no public methods beyond those provided by its
superclass.

=cut

package PPIx::Regexp::Token::GroupType::Code;

use strict;
use warnings;

use base qw{ PPIx::Regexp::Token::GroupType };

use PPIx::Regexp::Constant qw{ @CARP_NOT };

our $VERSION = '0.087';

sub __match_setup {
    my ( undef, $tokenizer ) = @_;	# Invocant unused
    $tokenizer->expect( qw{ PPIx::Regexp::Token::Code } );
    return;
}

use constant DEF	=> {
    '??'	=> {
	expl	=> 'Evaluate code, use as regexp at this point',
	intro	=> '5.006',
    },
    '?p'	=> {
	expl	=> 'Evaluate code, use as regexp at this point (removed in 5.9.5)',
	intro	=> '5.005',	# Presumed. I can find no documentation.
	remov	=> '5.009005',
    },
    '?'		=> {
	expl	=> 'Evaluate code. Always matches.',
	intro	=> '5.005',
    },
    '**'	=> {
	expl	=> 'Evaluate code, use as regexp at this point. Optimized.',
	intro	=> '5.037008',
    },
    '*'		=> {
	expl	=> 'Evaluate code. Always matches. Optimized.',
	intro	=> '5.037008',
    },
};

__PACKAGE__->__setup_class(
    {
	suffix	=> '{',
    },
);

1;

__END__