From 69953ef3f17b02d83fb922e406db19fbd39f6fa3 Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Wed, 8 Feb 2023 18:10:15 +0000 Subject: Initial attack at parsing attribute syntax for class blocks; though no attrs are yet defined --- proto.h | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'proto.h') diff --git a/proto.h b/proto.h index 8e9158412e..b4d75130cb 100644 --- a/proto.h +++ b/proto.h @@ -6243,6 +6243,11 @@ Perl_class_add_field(pTHX_ HV *stash, PADNAME *pn); # define PERL_ARGS_ASSERT_CLASS_ADD_FIELD \ assert(stash); assert(pn) +PERL_CALLCONV void +Perl_class_apply_attributes(pTHX_ HV *stash, OP *attrlist); +# define PERL_ARGS_ASSERT_CLASS_APPLY_ATTRIBUTES \ + assert(stash) + PERL_CALLCONV void Perl_class_prepare_method_parse(pTHX_ CV *cv); # define PERL_ARGS_ASSERT_CLASS_PREPARE_METHOD_PARSE \ -- cgit v1.2.1