GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
Perl::Critic::Utils::PPIRegexp(3) User Contributed Perl Documentation Perl::Critic::Utils::PPIRegexp(3)

Perl::Critic::Utils::PPIRegexp - Utility functions for dealing with PPI regexp tokens.

   use Perl::Critic::Utils::PPIRegexp qw(:all);
   use PPI::Document;
   my $doc = PPI::Document->new(\'m/foo/');
   my $elem = $doc->find('PPI::Token::Regexp::Match')->[0];
   print get_match_string($elem);  # yields 'foo'

As of PPI v1.1xx, the PPI regexp token classes (PPI::Token::Regexp::Match, PPI::Token::Regexp::Substitute and PPI::Token::QuoteLike::Regexp) has a very weak interface, so it is necessary to dig into internals to learn anything useful. This package contains subroutines to encapsulate that excess intimacy. If future versions of PPI gain better accessors, this package will start using those.

This is considered to be a public module. Any changes to its interface will go through a deprecation cycle.

"parse_regexp( $token )"
Parse the regexp token with Regexp::Parser. If that module is not available or if there is a parse error, returns undef. If a parse success, returns a Regexp::Parser instance that can be used to walk the regexp object model.

CAVEAT: This method pays special attention to the "x" modifier to the regexp. If present, we wrap the regexp string in "(?x:...)" to ensure a proper parse. This does change the object model though.

Someday if PPI gets native Regexp support, this method may become deprecated.

"ppiify( $regexp )"
Given a Regexp::Parser instance (perhaps as returned from "parse_regexp") convert it to a tree of PPI::Node instances. This is useful because PPI has a more familiar and powerful programming model than the Regexp::Parser object tree.

Someday if PPI gets native Regexp support, this method may become a no-op.

"get_match_string( $token )"
Returns the match portion of the regexp or undef if the specified token is not a regexp. Examples:

    m/foo/;         # yields 'foo'
    s/foo/bar/;     # yields 'foo'
    / \A a \z /xms; # yields ' \\A a \\z '
    qr{baz};        # yields 'baz'
    
"get_substitute_string( $token )"
Returns the substitution portion of a search-and-replace regexp or undef if the specified token is not a valid regexp. Examples:

    m/foo/;         # yields undef
    s/foo/bar/;     # yields 'bar'
    
"get_modifiers( $token )"
Returns a hash containing booleans for the modifiers of the regexp, or undef if the token is not a regexp.

    /foo/xms;  # yields (m => 1, s => 1, x => 1)
    s/foo//;   # yields ()
    qr/foo/i;  # yields (i => 1)
    
"get_delimiters( $token )"
Returns one (or two for a substitution regexp) two-character strings indicating the delimiters of the regexp, or an empty list if the token is not a regular expression token. For example:

    m/foo/;      # yields ('//')
    m#foo#;      # yields ('##')
    m<foo>;      # yields ('<>')
    s/foo/bar/;  # yields ('//', '//')
    s{foo}{bar}; # yields ('{}', '{}')
    s{foo}/bar/; # yields ('{}', '//')   valid, but yuck!
    qr/foo/;     # yields ('//')
    
"regexp_interpolates( $token )"
Returns true if the given regexp interpolates, false if it does not, or undef if the status can not be determined. The determining factor is whether or not the first delimiting character (as returned by "get_delimiters") is a single quote. For example:

    m/foo/;     # yields true
    qr{foo};    # yields true
    m'foo';     # yields false
    

Chris Dolan <cdolan@cpan.org>

Copyright (c) 2007-2013 Chris Dolan. Many rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license can be found in the LICENSE file included with this module.

2013-10-29 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.