Question

我正在尝试学习Devel::Declare，以便在没有源过滤器的情况下尝试重新实现PDL::NiceSlice之类的内容。当我注意到它正在从我的脚本中删除下一行时，我正在某个地方。为了说明我已经做了这个最小的例子，其中一个人可以使用comment关键字从代码中删除整行，允许编译，即使该行上有大量的字。

#Comment.pm
package Comment;

use strict;
use warnings;

use Devel::Declare ();

sub import {
  my $class = shift;
  my $caller = caller;

  Devel::Declare->setup_for(
      $caller,
      { comment => { const => \&parser } }
  );
  no strict 'refs';
  *{$caller.'::comment'} = sub {};

}

sub parser {
  #my $linestr = Devel::Declare::get_linestr;
  #print $linestr;

  Devel::Declare::set_linestr("");
}

1

和

#!/usr/bin/env perl
#test.pl

use strict;
use warnings;

use Comment;

comment stuff;

print "Print 1\n";
print "Print 2\n";

仅收益

Print 2

我错过了什么？

P.S。如果我想解决这个问题，我可能会在D::D出现更多问题，所以提前谢谢！

Answer 1

好的，我明白了。使用perl -MO=Deparse test.pl即可获得：

use Comment;
use warnings;
use strict 'refs';
comment("Print 1\n");
print "Print 2\n";
test.pl syntax OK

告诉我，如果强制调用comment函数。经过一些实验后，我发现我可以将输出设置为显式调用comment()，这样就不会尝试在下一步调用comment。

sub parser {
  Devel::Declare::set_linestr("comment();");
}

所以deparse是：

use Comment;
use warnings;
use strict 'refs';
comment();
print "Print 1\n";
print "Print 2\n";
test.pl syntax OK

和正确的输出。

Devel :: Declare从脚本中删除行

1 个答案: