| PPIx-Regexp documentation | Contained in the PPIx-Regexp distribution. |
PPIx::Regexp::Token::Recursion - Represent a recursion
use PPIx::Regexp::Dumper;
PPIx::Regexp::Dumper->new( 'qr{(foo(?1)?)}smx' )
->print();
PPIx::Regexp::Token::Recursion is a
PPIx::Regexp::Token::Reference.
PPIx::Regexp::Token::Recursion has no descendants.
This class represents a recursion to a named or numbered capture.
This class provides no public methods beyond those provided by its superclass.
Support is by the author. Please file bug reports at http://rt.cpan.org, or in electronic mail to the author.
Thomas R. Wyant, III wyant at cpan dot org
Copyright (C) 2009-2011 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full text of the licenses in the directory LICENSES.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.
| PPIx-Regexp documentation | Contained in the PPIx-Regexp distribution. |
package PPIx::Regexp::Token::Recursion; use strict; use warnings; use base qw{ PPIx::Regexp::Token::Reference }; use Carp qw{ confess }; use PPIx::Regexp::Constant qw{ RE_CAPTURE_NAME }; our $VERSION = '0.020'; # Return true if the token can be quantified, and false otherwise # sub can_be_quantified { return }; sub perl_version_introduced { return '5.009005'; } # This must be implemented by tokens which do not recognize themselves. # The return is a list of list references. Each list reference must # contain a regular expression that recognizes the token, and optionally # a reference to a hash to pass to make_token as the class-specific # arguments. The regular expression MUST be anchored to the beginning of # the string. sub __PPIX_TOKEN__recognize { return ( [ qr{ \A \( \? (?: ( [-+]? \d+ )) \) }smx, { is_named => 0 } ], [ qr{ \A \( \? (?: R) \) }smx, { is_named => 0, capture => '0' } ], [ qr{ \A \( \? (?: & | P> ) ( @{[ RE_CAPTURE_NAME ]} ) \) }smxo, { is_named => 1 } ], ); } 1; __END__
# ex: set textwidth=72 :