make private sub private and add some documentation
This commit is contained in:
parent
98bfd9ac1d
commit
acdecef5b6
1 changed files with 7 additions and 2 deletions
|
|
@ -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;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue