File Coverage

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

Criterion	Covered	Total	%
statement	21	23	91.3
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	29	32	90.6

=head1 NAME

PPIx::Regexp::Structure::Code - Represent one of the code structures.

=head1 SYNOPSIS

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

=head1 INHERITANCE

C is a
L.

C has no descendants.

=head1 DESCRIPTION

This class represents one of the code structures, either

 (?{ code })

or

 (??{ code })

=head1 METHODS

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

=cut

package PPIx::Regexp::Structure::Code;

use strict;
use warnings;

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

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

our $VERSION = '0.087_01';

# The only child of this structure should be a single
# PPIx::Regexp::Token::Code. Anything else gets turned into the
# appropriate ::Unknown object.
sub __PPIX_LEXER__finalize {
    my ( $self ) = @_;		# $lexer unused

    my $count;
    my $errors = 0;

    foreach my $kid ( $self->children() ) {

	if ( $kid->isa( 'PPIx::Regexp::Token::Code' ) ) {
	    $count++
		or next;
	    $errors++;
	    $kid->__error(
		'Code structure can contain only one code token' );
	} else {

	    $errors++;

	    $kid->__error(
		'Code structure may not contain a ' . ref $kid );
	}

    }
    return $errors;
}

1;

__END__