110                     # constants from cv_const_sv are read only. So we have to:
    111                     Internals::SvREADONLY($scalar, 1);
    112                     $symtab->{$name} = \$scalar;
    113                     mro::method_changed_in($pkg);
    114                 } else {
    115                     *$full_name = sub () { $scalar };
    116                 }
    117             } elsif (@_) {
    118                 my @list = @_;
    119                 *$full_name = sub () { @list };
    120             } else {
    121                 *$full_name = sub () { };
    122             }