make private sub private and add some documentation

This commit is contained in:
Graham Knop 2008-09-16 16:27:22 +00:00
parent 98bfd9ac1d
commit acdecef5b6

View file

@ -123,13 +123,18 @@ sub process {
"Too many levels of macro recursion. Stopping."; "Too many levels of macro recursion. Stopping.";
} }
else { else {
my $replaceText = processMacro($session, $2, $3); my $replaceText = _processMacro($session, $2, $3);
defined $replaceText ? $replaceText : $1; # processMacro returns undef on failure, use original text defined $replaceText ? $replaceText : $1; # processMacro returns undef on failure, use original text
} }
}ge; }ge;
} }
sub processMacro {
# _processMacro ( $session, $macroname, $parameters )
# processes an individual macro, taking the macro name and parameters as a string
# returns the result text or undef on failure
sub _processMacro {
my $session = shift; my $session = shift;
my $macroname = shift; my $macroname = shift;
my $parameters = shift; my $parameters = shift;