Commit | Line | Data |
---|---|---|
4e9e26b6 | 1 | use warnings; |
2 | use strict; | |
3 | ||
d5a4de48 | 4 | use Test::More; |
5 | use Test::Requires 'Filter::Util::Call'; | |
6 | ||
7 | plan tests => 2; | |
4e9e26b6 | 8 | |
9 | use Devel::Declare (); | |
10 | use Filter::Util::Call qw(filter_add filter_del); | |
4e9e26b6 | 11 | |
12 | sub my_quote($) { $_[0] } | |
13 | ||
14 | my $i = 0; | |
15 | ||
16 | BEGIN { Devel::Declare->setup_for(__PACKAGE__, { my_quote => { const => sub { } } }); } | |
17 | BEGIN { filter_add(sub { filter_del(); $_ .= "ok \$i++ == 0;"; return 1; }); } | |
18 | ||
19 | ok $i++ == 1; | |
20 | ||
21 | 1; |