1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!/usr/bin/env perl use strict; use warnings; use Test::More; { package Parser; use Parse::Keyword { foo => \&parse_foo }; sub foo {} sub parse_foo { lex_peek(99999999); return sub {}; } ::is_deeply([ foo ], []); } is(__LINE__, 20); done_testing;