3 use Test::More tests => 14;
5 use Devel::Declare 'method' => sub {};
10 local $TODO = "dd_ck_const doesn't special-case ops created in quotelike contexts";
11 test_eval 'qq/method/';
13 test_eval 'qx/method/';
18 test_eval 'qr/method/';
20 test_eval 's/method//';
21 test_eval 'tr/method/METHOD/';
22 test_eval 'q/method/';
25 test_eval 'qw/method/';
29 test_eval 'no warnings "reserved"; open method, "</dev/null"';
35 ok !$@, "$what" or d($@);
39 sub d { # diag the error the first time we get it
42 $seen{$err}++ or diag $err;