Scroll to navigation

PPIx::EditorTools::IntroduceTemporaryVariable(3pm) User Contributed Perl Documentation PPIx::EditorTools::IntroduceTemporaryVariable(3pm)

NAME

PPIx::EditorTools::IntroduceTemporaryVariable - Introduces a temporary variable using PPI

VERSION

version 0.21

SYNOPSIS

    my $munged = PPIx::EditorTools::IntroduceTemporaryVariable->new->introduce(
        code           => "use strict; BEGIN {
        $^W = 1;
}\n\tmy $x = ( 1 + 10 / 12 ) * 2;\n\tmy $y = ( 3 + 10 / 12 ) * 2;\n",
        start_location => [ 2, 19 ],
        end_location   => [ 2, 25 ],
        varname        => '$foo',
    );
    my $modified_code_as_string = $munged->code;
    my $location_of_new_var_declaration = $munged->element->location;

DESCRIPTION

Given a region of code within a statement, replaces all occurrences of that code with a temporary variable. Declares and initializes the temporary variable right above the statement that included the selected expression.

METHODS

Constructor. Generally shouldn't be called with any arguments.
Accepts either a "PPI::Document" to process or a string containing the code (which will be converted into a "PPI::Document") to process.

Given the region of code specified by start_location and end_location, replaces that code with a temporary variable with the name given in varname (defaults to "tmp"). Declares and initializes the temporary variable right above the statement that included the selected expression.

Returns a "PPIx::EditorTools::ReturnObject" with the modified code as a string available via the "code" accessor (or as a "PPI::Document" via the "ppi" accessor), and the "PPI::Token" where the new variable is declared available via the "element" accessor.

Croaks with a "no token" exception if no token is found at the location. Croaks with a "no statement" exception if unable to find the statement.

SEE ALSO

This class inherits from "PPIx::EditorTools". Also see App::EditorTools, Padre, and PPI.

AUTHORS

  • Steffen Mueller "smueller@cpan.org"
  • Mark Grimes "mgrimes@cpan.org"
  • Ahmad M. Zawawi <ahmad.zawawi@gmail.com>
  • Gabor Szabo <gabor@szabgab.com>
  • Yanick Champoux <yanick@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017, 2014, 2012 by The Padre development team as listed in Padre.pm..

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

2022-06-17 perl v5.34.0