3 use Test::More tests => 15;
5 use Devel::Declare 'method' => sub {};
11 test_eval 'qq/method/';
12 test_eval 'q/method/';
15 test_eval 'qw/method/';
19 test_eval 'my $x = { method => 42 }';
23 test_eval 'sub {`method`}'; # compiled to prevent calling arbitrary exe!
24 test_eval 'sub { qx{method} }';
28 local $_=''; # the passing results will act on $_
29 test_eval 'qr/method/';
31 test_eval 's/method//';
32 test_eval 'tr/method/METHOD/';
36 test_eval q{ no warnings 'reserved'; open method, '<', File::Spec->devnull };
43 ok !$@, "$what" or d($@);
47 sub d { # diag the error the first time we get it
50 $seen{$err}++ or diag $err;