Rechercher une page de manuel
PPI::Token::Quote::Double.3pm
Langue: en
Version: 2008-05-14 (debian - 07/07/09)
Section: 3 (Bibliothèques de fonctions)
NAME
PPI::Token::Quote::Double - A standard "double quote" tokenINHERITANCE
PPI::Token::Quote::Double isa PPI::Token::Quote isa PPI::Token isa PPI::Element
DESCRIPTION
A "PPI::Token::Quote::Double" object represents a double-quoted interpolating string.The string is treated as a single entity, PPI will not try to understand what is in the string during the parsing process.
METHODS
There are several methods available for "PPI::Token::Quote::Double", beyond those provided by the parent PPI::Token::Quote, PPI::Token and PPI::Element classes.Got any ideas for methods? Submit a report to rt.cpan.org!
interpolations
The interpolations method checks to see if the double quote actually contains any interpolated variables.
Returns true if the string contains interpolations, or false if not.
# Get a set of objects my $Document = PPI::Document->new(\<<'END_PERL'); ``no interpolations'' ``no \@interpolations'' ``has $interpolation'' ``has @interpolation'' ``has \\@interpolation'' "" # False content to test double-negation scoping END_PERL isa_ok( $Document, 'PPI::Document' ); my $strings = $Document->find('Token::Quote::Double'); is( scalar(@$strings), 6, 'Found the 5 test strings' ); is( $strings->[0]->interpolations, '', 'String 1: No interpolations' ); is( $strings->[1]->interpolations, '', 'String 2: No interpolations' ); is( $strings->[2]->interpolations, 1, 'String 3: Has interpolations' ); is( $strings->[3]->interpolations, 1, 'String 4: Has interpolations' ); is( $strings->[4]->interpolations, 1, 'String 5: Has interpolations' ); is( $strings->[5]->interpolations, '', 'String 6: No interpolations' );
simplify
For various reasons, some people find themselves compelled to have their code in the simplest form possible.
The "simply" method will turn a simple double-quoted string into the equivalent single-quoted string.
If the double can be simplified, it will be modified in place and returned as a convenience, or returns false if the string cannot be simplified.
my $Document = PPI::Document->new( \'print ``foo'';' ); isa_ok( $Document, 'PPI::Document' ); my $Double = $Document->find_first('Token::Quote::Double'); isa_ok( $Double, 'PPI::Token::Quote::Double' ); is( $Double->string, 'foo', '->string returns as expected' );
SUPPORT
See the support section in the main module.AUTHOR
Adam Kennedy <adamk@cpan.org>COPYRIGHT
Copyright 2001 - 2008 Adam Kennedy.This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
POD ERRORS
Hey! The above document had some coding errors, which are explained below:- Around line 60:
- '=begin' only takes one parameter, not several as in '=begin testing interpolations 8'
- Around line 81:
- =end testing without matching =begin. (Stack: [empty])
- Around line 135:
- '=begin' only takes one parameter, not several as in '=begin testing string 3'
- Around line 143:
- =end testing without matching =begin. (Stack: [empty])
Contenus ©2006-2024 Benjamin Poulain
Design ©2006-2024 Maxime Vantorre