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