7 skip_all_if_miniperl("miniperl can't load attributes");
12 # test for bug #38475: parsing errors with multiline attributes
16 use Attribute::Handlers;
18 sub TypeCheck :ATTR(CODE,RAWDATA) {
22 sub WrongAttr :ATTR(CODE,RAWDATA) {
26 sub CheckData :ATTR(RAWDATA) {
27 # check that the $data element contains the given attribute parameters.
29 if ($_[4] eq "12, 14") {
37 sub CheckEmptyValue :ATTR() {
38 if (not defined $_[4]) {
49 sub something : TypeCheck(
53 ) { # WrongAttr (perl tokenizer bug)
54 # keep this ^ lined up !
60 sub c :CheckData(12, 14) {};
62 sub d1 :CheckEmptyValue() {};
63 sub d2 :CheckEmptyValue {};