Ccode354i.pm 246 B

1234567891011
  1. # This needs to be in a seperate file.
  2. # See t/issue354.t
  3. package Ccode354i;
  4. my %h = ( abcd => { code => sub { return q{abcdef} }, });
  5. sub check {
  6. my ($token) = @_;
  7. return qq{ok\n} if defined $h{ $token->{expansion} };
  8. return qq{KO\n};
  9. }
  10. 1