5 eval { require Filter::Util::Call };
8 Test::More::plan(skip_all => "Filter::Util::Call unavailable");
12 use Devel::Declare ();
13 use Filter::Util::Call qw(filter_add filter_del);
14 use Test::More tests => 2;
16 sub my_quote($) { $_[0] }
20 BEGIN { filter_add(sub { filter_del(); $_ .= "ok \$i++ == 0;"; return 1; }); }
21 BEGIN { Devel::Declare->setup_for(__PACKAGE__, { my_quote => { const => sub { } } }); }