PPIx::EditorTools::IntroduceTemporaryVariable3pm

Usage

    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;

Version

version 0.21

Overview

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

new()

Constructor. Generally shouldn't be called with any arguments.

find( ppi => PPI::Document, start_location => Int, end_location => Int, varname => Str )

find( code => Str, start_location => Int, end_location => Int, varname => Str )

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.

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.