Re^4: Semantic diff for Perl code

untested, but try

my $subdoc = PPI::Document::Fragment->new(\$sub->content);
write_to_file($subdoc->serialize(), ...);
[download]

Comment on Re^4: Semantic diff for Perl code Download Code

Replies are listed 'Best First'.
Re^5: Semantic diff for Perl code by clueless newbie (Curate) on Sep 27, 2017 at 19:46 UTC
This loses the content of the heredoc. Instead of `sub Fee { return <<__Fee__; Fee __Fee__ }` [download] one gets `sub Fee { return <<__Fee__; }` [download] Apparently except when the object is a PPI::Token::Heredoc the content method's return doesn't include the contents of any PPI::Token::Heredoc.	[reply] [d/l] [select]