Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

how to add a PPI:Statement to a document?

by blahblahblah (Priest)
on Dec 28, 2007 at 20:23 UTC ( #659394=perlquestion: print w/replies, xml ) Need Help??
blahblahblah has asked for the wisdom of the Perl Monks concerning the following question:

I have an open PPI document, and I want to insert an assignment statement at a certain point. $lastVar represents the statement after which I want to insert my new line.

I can successfully add a comment with the following:

my $newStatement = PPI::Token::Comment->new(); $newStatement->set_content(qq{\n# $newVar = ${quote}$newValue${quote +};\n}); $lastVar->insert_after($newStatement);
However, I want to add a full statement. If PPI::Statement had a set_content method, this is sort of what I'd like to do:
my $newStatement = PPI::Statement->new(); $newStatement->set_content(qq{\n1; #testing\n});
Can anyone point me in the right direction? Do I need to create a new PPI::Something and the build it up piece by piece from a bunch of other PPI::Something's, or is there a simpler way to add a block of code to a document?


Replies are listed 'Best First'.
Re: how to add a PPI:Statement to a document?
by Anonymous Monk on Dec 29, 2007 at 11:39 UTC
    Watch carefully
    $Document = PPI::Document->new(\'print "Hello World!\n"'); $lastVar->insert_after( $Document );
      $Document = PPI::Document->new(\'print "Hello World!\n"'); $lastVar->insert_after( $Document->find_first('Statement') );
      A little more verbose, but much clearer in intent.
        In fact, you also should just throw away the other document immediately.
        $lastVar->insert_after( PPI::Document->new('print "Hello World!\n")->f +ind_first('Statement') );

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://659394]
Approved by Limbic~Region
Front-paged by grinder
[Wcool]: hi there

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (11)
As of 2017-03-23 15:40 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (289 votes). Check out past polls.