5 use Test::More tests => 1;
7 sub my_quote($) { $_[0] }
10 my($declarator, $offset) = @_;
11 $offset += Devel::Declare::toke_move_past_token($offset);
12 $offset += Devel::Declare::toke_skipspace($offset);
13 my $len = Devel::Declare::toke_scan_str($offset);
14 die "suprising len=$len" if defined $len;
15 die "toke_scan_str fail\n";
19 Devel::Declare->setup_for(__PACKAGE__, {
20 my_quote => { const => \&my_quote_parser },
24 eval q{ my_quote[foo };
25 is $@, "toke_scan_str fail\n";