diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-08 18:14:14 +0000 |
---|---|---|
committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-10 14:38:44 +0000 |
commit | 054ceeebc7f6acad2772faa4fa88617c35f4a88a (patch) | |
tree | af2d9c0d75e3f10ee26f575e7dab8973e757dd83 /proto.h | |
parent | e3b003dd8ca8d881450f6c96297ffa35f6a92ed1 (diff) | |
download | perl-054ceeebc7f6acad2772faa4fa88617c35f4a88a.tar.gz |
Accept field VAR = EXPR on field vars
Allows non-constant expressions with side effects. Evaluated during the
constructor of each instance.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -6249,6 +6249,10 @@ Perl_class_apply_attributes(pTHX_ HV *stash, OP *attrlist); assert(stash) PERL_CALLCONV void +Perl_class_prepare_initfield_parse(pTHX); +# define PERL_ARGS_ASSERT_CLASS_PREPARE_INITFIELD_PARSE + +PERL_CALLCONV void Perl_class_prepare_method_parse(pTHX_ CV *cv); # define PERL_ARGS_ASSERT_CLASS_PREPARE_METHOD_PARSE \ assert(cv) @@ -6259,6 +6263,11 @@ Perl_class_seal_stash(pTHX_ HV *stash); assert(stash) PERL_CALLCONV void +Perl_class_set_field_defop(pTHX_ PADNAME *pn, OP *defop); +# define PERL_ARGS_ASSERT_CLASS_SET_FIELD_DEFOP \ + assert(pn); assert(defop) + +PERL_CALLCONV void Perl_class_setup_stash(pTHX_ HV *stash); # define PERL_ARGS_ASSERT_CLASS_SETUP_STASH \ assert(stash) |