perl – Devel :: Declare从脚本中删除行

我正在尝试学习 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 1n";
print "Print 2n";

只收益率

Print 2

我错过了什么？

附：如果我想把这个问题拿出来的话,我可能还会有更多关于D :: D的问题,所以提前谢谢！

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

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

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