Help for this page

Select Code to Download


  1. or download this
        my $param = shift;
        ...
        $self->{$_call} = $_param || return $self->{$_call};
    
  2. or download this
        # (after shifting everything but param)
        if (@_) {
    ...
        } else {
            return $self->{$_call};
        }