Revision f4d85933
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| t/structure/no_lexicals_in_postif.t | ||
|---|---|---|
|
my @testitems = @Support::Files::testitems;
|
||
|
|
||
|
foreach my $file (@testitems) {
|
||
|
next unless -f $file;
|
||
|
my $clean = 1;
|
||
|
my $doc = PPI::Document->new($file);
|
||
|
my $doc = PPI::Document->new($file) or do {
|
||
|
ok 0, "PPI error for file $file: " . PPI::Document::errstr();
|
||
|
next;
|
||
|
};
|
||
|
my $stmts = $doc->find('Statement::Variable');
|
||
|
|
||
|
for my $var (@{ $stmts || [] }) {
|
||
Auch abrufbar als: Unified diff
Test zu post if robuster gegen PPI Parsingfehler gemacht.