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