$text | @text = trim( @text ); #### # -------------------------------------- # Name: trim # Usage: $text = trim( @text ); # @text = trim( @text ); # Purpose: TBD # Parameters: @text -- TBD # Returns: $text -- TBD # @text -- TBD # sub trim { my @text = @_; my $text = ''; return wantarray ? @text : $text; } #### \%options = $object->get_options( ; @option_names ); #### # -------------------------------------- # Name: get_options # Usage: \%options = $object->get_options( ; @option_names ); # Purpose: TBD # Parameters: @option_names -- TBD # Returns: \%options -- TBD # sub get_options { my $self = shift @_; my @option_names = @_; my $options = {}; return $options; }