t/op/attrhand.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan tests => 1;
  10
  11 # test for bug #38475: parsing errors with multiline attributes
  12
  13 package Antler;
  14
  15 use Attribute::Handlers;
  16
  17 sub TypeCheck :ATTR(CODE,RAWDATA) {
  18     ::ok(1);
  19 }
  20
  21 sub WrongAttr :ATTR(CODE,RAWDATA) {
  22     ::ok(0);
  23 }
  24
  25 package Deer;
  26 use base 'Antler';
  27
  28 sub something : TypeCheck(
  29     QNET::Util::Object,
  30     QNET::Util::Object,
  31     QNET::Util::Object
  32 ) { #           WrongAttr (perl tokenizer bug)
  33     # keep this ^ lined up !
  34     return 42;
  35 }
  36
  37 something();