Commit | Line | Data |
8449c31f |
1 | use warnings; |
2 | use strict; |
3 | |
4 | use Devel::Declare (); |
5 | use Test::More tests => 1; |
6 | |
7 | sub my_quote($) { $_[0] } |
8 | |
9 | sub my_quote_parser { |
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"; |
16 | } |
17 | |
18 | BEGIN { |
19 | Devel::Declare->setup_for(__PACKAGE__, { |
20 | my_quote => { const => \&my_quote_parser }, |
21 | }); |
22 | } |
23 | |
24 | eval q{ my_quote[foo }; |
25 | is $@, "toke_scan_str fail\n"; |
26 | |
27 | 1; |