假设我有Foo.pm：

package Foo;

sub foo0 { 1; }
sub foo1 { 1; }
sub foo2 { 1; }
sub foo3 { 1; }

1;

我想用PPI来获得所有潜艇：

#!/usr/bin/env perl
use PPI;
my $filename = shift;
my $Document = PPI::Document->new($filename);
my $subs = $Document->find('PPI::Statement::Sub');
warn $#$subs;

结果我得到’3’这是正确的.

但当我在Foo.pm中的一个潜艇称为’sub vN …’时,其中N是一个数字,f.e.：

sub v1foo {}

要么

sub v3bar {}

或者干脆

sub v2 {}

PPI :: Document find似乎打破了解析并只返回已经找到的subs.
所以,如果我修改Foo：

package Foo;

sub foo0 { 1; }
sub foo1 { 1; }
sub v2xx { 1; }
sub foo3 { 1; }

1;

我的测试结果是“1”(发现subs是foo0和foo1)

以某种方式禁止以v [0..9]声明子程序名称？

问候.