if (@_ == 1) {
            my $scalar = $_[0];
            *$full_name = sub () { $scalar };
        } elsif (@_) {
            my @list = @_;
            *$full_name = sub () { @list };
        } else {
            *$full_name = sub () { };
        }