File Coverage

blib/lib/PPIx/Regexp/Structure/Modifier.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	24	27	88.8

=head1 NAME

PPIx::Regexp::Structure::Modifier - Represent modifying parentheses

=head1 SYNOPSIS

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

=head1 INHERITANCE

C is a
L.

C has no descendants.

=head1 DESCRIPTION

This class represents parentheses that apply modifiers to their contents
-- even if there are no modifiers. The latter is to say that C<(?:foo)>
also ends up as this class.

=head1 METHODS

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

=cut

package PPIx::Regexp::Structure::Modifier;

use strict;
use warnings;

use base qw{ PPIx::Regexp::Structure };

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

our $VERSION = '0.087_01';

# This is a kluge for both determining whether the object asserts
# modifiers (hence the 'ductype') and determining whether the given
# modifier is actually asserted. The signature is the invocant and the
# modifier name, which must not be undef. The return is a boolean.
sub __ducktype_modifier_asserted {
    my ( $self, $modifier ) = @_;
    foreach my $type ( reverse $self->type() ) {
	$type->can( '__ducktype_modifier_asserted' )
	    or next;
	defined( my $val = $type->__ducktype_modifier_asserted( $modifier ) )
	    or next;
	return $val;
    }
    return;
}

1;

__END__