Perl 使用PPI重写包中的子例程

有没有一种方法可以使用PPI框架重写子例程的内容

示例（精简至要点）：

my$Document=PPI:：Document->new（$file）；
my$subs=$Document->find（sub{$\[1]->isa（'PPI:：Statement:：sub'）和$\[1]->name}）；
foreach my$sub（@{$subs}）{
如果（$sub->block（））{
#这里：如果block（）（子模块的实际代码）满足某些条件，
#我想用f.e.“返回-1”来代替它；
} 
}

更改将保存在$file中。

另请参见。