File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	30	30	100.0

=head1 NAME

PPIx::Regexp::Token::GroupType::Modifier - Represent the modifiers in a modifier group.

=head1 SYNOPSIS

 use PPIx::Regexp::Dumper;
 PPIx::Regexp::Dumper->new( 'qr{(?i:foo)}smx' )
     ->print();

=head1 INHERITANCE

C is a
L and a
L.

C has no descendants.

=head1 DESCRIPTION

This class represents the modifiers in a modifier group. The useful
functionality comes from
L.

=head1 METHODS

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

=cut

package PPIx::Regexp::Token::GroupType::Modifier;

use strict;
use warnings;

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

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

our $VERSION = '0.087_01';

{

    my %perl_version_introduced = (
	'?:'	=> MINIMUM_PERL,
    );

    sub perl_version_introduced {
	my ( $self ) = @_;
	my $content = $self->unescaped_content();
	exists $perl_version_introduced{$content}
	    and return $perl_version_introduced{$content};
	my $ver = $self->SUPER::perl_version_introduced();
	$ver > 5.005 and return $ver;
	return '5.005';
    }

}

=begin comment

# Return true if the token can be quantified, and false otherwise
# sub can_be_quantified { return };

sub __PPIX_TOKENIZER__regexp {
    my ( $class, $tokenizer, $character, $char_type ) = @_;

    # Note that the optional escapes are because any of the
    # non-open-bracket punctuation characters might be our delimiter.
    my $accept;
    $accept = $tokenizer->find_regexp(
	qr{ \A \\? [?] [[:lower:]]* \\? -? [[:lower:]]* \\? : }smx )
	and return $accept;
    $accept = $tokenizer->find_regexp(
	qr{ \A \\? [?] \^ [[:lower:]]* \\? : }smx )
	and return $accept;

    return;
}

=end comment

=cut

sub __make_group_type_matcher {
    return {
	''	=> [
	    qr{ \A [?] [[:lower:]]* -? [[:lower:]]* : }smx,
	    qr{ \A [?] \^ [[:lower:]]* : }smx,
	],
	'?'	=> [
	    qr{ \A \\ [?] [[:lower:]]* -? [[:lower:]]* : }smx,
	    qr{ \A \\ [?] \^ [[:lower:]]* : }smx,
	],
	'-'	=> [
	    qr{ \A [?] [[:lower:]]* (?: \\ - )? [[:lower:]]* : }smx,
	    qr{ \A [?] \^ [[:lower:]]* : }smx,
	],
	':'	=> [
	    qr{ \A [?] [[:lower:]]*  -? [[:lower:]]* \\ : }smx,
	    qr{ \A [?] \^ [[:lower:]]* \\ : }smx,
	],
    };
}

1;

__END__